it is possible to loop through your sheets.
I would suggest doing just that because, as you mentioned, you may be
dropping some categories. In which case you don't know the name
of the category you removed!
here's what I'd do:
For I = 1 To Sheets.Count
If (sheets(I).name <> "KEEPthisSHEET") Then
Application.DisplayAlerts = False
Sheets(I).Delete
Application.DisplayAlerts = True
End If
Next I
I use it frequently.