Check for sheet names, then delete

[cgmojoco]

How would I go about getting the below code to check first if the sheet exists and skip the delete function if it does not exist?

My users are getting an error because sometimes the sheet does not exist.

Sub DELETEShts()
    Application.DisplayAlerts = False
    Sheets("AAA").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False
    Sheets("BBB").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False
    Sheets("CCC").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
End Sub

 

[Barrie Davidson]

No need to select the sheets. Try

Sub DELETEShts()
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("AAA").Delete
    Sheets("BBB").Delete
    Sheets("CCC").Delete
    Application.DisplayAlerts = True
End Sub

Regards,

 

[cgmojoco]

Thanks-

OMG my code was sloppy!