Удаление листов

[Chip&Dale]

Это все для меня ново, так что не бейте. Суть заключается в том, чтобы написать макрос, который бы удалял листы и именем "Лист!".
Sub DeleteSheets()
Dim aSheet As Object
For Each aSheets In ThisWorkbook
If InStr(1, Worksheets(1).Name, "!", vbTextCompare) = 0 Then
Worksheets(1).Delete
End If
Next aSheet
End Sub

Помогите, пожалуйста!

[EducatedFool]

Sub test()
    On Error Resume Next: Application.DisplayAlerts = False
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name Like "Лист!*" Then sh.Delete
    Next sh
    Application.DisplayAlerts = True
End Sub

[Chip&Dale]

А с использованием InStr() ?

[EducatedFool]

If sh.Name Like "*!*" Then sh.Delete

или

If InStr(1, sh.Name, "!") = 0 Then sh.Delete