Application.DisplayAlerts = False
Sheets("Your Sheet").Delete
Application.DisplayAlerts = True

HTH Dennis


" wrote:

I have the following code to delete a tab:

Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete

When I run this, I get the standard "You may lose data" warning
message. Does a different syntax allow me to delete the sheet without
getting the warning message?

Thanks