Удалить рабочий лист и воссоздать с тем же именем листа

Question

В настоящее время я пытаюсь удалить рабочий лист и автоматически создать новый лист с тем же именем.

Я использую приведенный ниже код. Однако, когда я запускаю код, появляется всплывающее окно с просьбой подтвердить удаление, я хочу предотвратить это и просто удалить и заменить новым листом. Я хочу избежать отправки ключей для этого.

ThisWorkbook.Sheets("Process Map").delete 
ThisWorkbook.Sheets.Add.Name = "Process Map" 

Answer 1

Попробуйте установить DisplayAlerts в значение False (а затем обратно к истине, если это то, что вы хотите в качестве настройки по умолчанию

Application.DisplayAlerts = False 
On Error Resume Next 
ThisWorkBook.Sheets("Process Map").Delete 
On Error Goto 0 
Application.DisplayAlerts = True 
ThisWorkbook.Sheets.Add.Name = "Process Map" 

Или без обработки ошибок:.

Application.DisplayAlerts = False 
ThisWorkBook.Sheets("Process Map").Delete 
Application.DisplayAlerts = True 
ThisWorkbook.Sheets.Add.Name = "Process Map"