On Error Resume Next
Application.Displayalerts = False
Sheets("Bakery").Delete
Applicaton.displayAlerts = True
On Error goto 0

--
Regards,
Tom Ogilvy



"M Shannon" wrote in message
...
I have this macro on close:

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

I need to do two things.

1) If the sheet doesn't exist I want the macro to do
nothing and carry on to delete the next worksheet.

2) If the sheet does exist I want the macro to delete it
without the warning.

Any help is much appreciated.
Many thanks