Pete

The following will loop through the sheets in the current workbook and show the names. You should be able to use this to determine the list of names you want to delete.

Ton

Sub ccc(
For Each na In ActiveWorkbook.Sheet
MsgBox na.Nam
Next n
End Sub