Delete Sheet in excel
Delete Sheet in excel
(OP)
I'm trying to write a code to copy a worksheet, do something and then delete it. Problem is I get this prompt before the sheet is deleted:
"Data may exist in the sheet(s) selected for deletion.To permanently delete the data, press delete."
How do I get my code to avoid that prompt or automatically accept it?
Sub Macro1()
Sheets("Template").Copy Before:=Sheets(1)
xxx
xxx
Sheets("Template (2)").Delete
End Sub
regards
Mogens
"Data may exist in the sheet(s) selected for deletion.To permanently delete the data, press delete."
How do I get my code to avoid that prompt or automatically accept it?
Sub Macro1()
Sheets("Template").Copy Before:=Sheets(1)
xxx
xxx
Sheets("Template (2)").Delete
End Sub
regards
Mogens





RE: Delete Sheet in excel
Something like:
Sub Macro1()
Sheets("Template").Copy
With ActiveWorkbook.Sheets("Template")
'.Range("C3:E7").ClearContents
'xxx
'xxx
End With
ActiveWindow.Close (False)
End Sub
HTH
_LF
RE: Delete Sheet in excel
to avoid such prompts, try to insert the following command line just before your "delete"-command:
Application.DisplayAlerts = False
I hope it may help.
Good luck !
RE: Delete Sheet in excel
Works perfect
Regards
Mogens
RE: Delete Sheet in excel