Удаление листов с помощью like

[Parklane1488]

Всем добрый день!

Мне нужно, чтобы макрос удалял все листы, содержащие слово Лист. В Excel файле вкладок очень много, и поэтому удалив все вкладки, содержащие слово "Лист" в файле останутся ещё вкладки(то есть ошибку не выдаст, что нельзя удалить последний лист)

Есть следующий макрос, но он не работает почему то.

PHP код:

Sub Удаление_вкладок()
Dim del As Worksheet

For Each del In ThisWorkbook.Sheets
        If del.Name Like "*Лист" Then
            If ThisWorkbook.Sheets.Count = 1 Then
                MsgBox "Это единственная вкладка в книге, и её удалить я не могу"
            Else
                Application.DisplayAlerts = False
                del.Delete
                Application.DisplayAlerts = True
            End If
        End If
    Next
End Sub 


[EducatedFool]

Есть следующий макрос, но он не работает почему то.

а что не работает-то?
с виду, в коде всё правильно

можно попробовать заменить "*Лист" на "*Лист*"

ну и самой верхней строкой в модуле (над всеми макросами) добавить строку
Option Compare Text
чтобы регистр символов слова «Лист» не учитывался

[Parklane1488]

Добавил как Вы сказали * в конец и выдаёт моё сообщение, что вкладка единственная и удалить не получается.
Хотя у меня куча других вкладок в файле.
Не пойму где ошибся.

[IgorGO]

допускаю что Вы хотите удалить листы из ActiveWorkbook (активной книги, той, в которую смотрите в данным момент глазами), а в макросе написано удалять листы с ThisWorkbook (из книги содержащей макрос)
так все становиться на свои места. в книге с макросм после первого запуска макроса остался 1 лист, о чем и сообщает макрос при каждом следующем запуске

дело в том, что Ексель не знает о чем Вы думаете чего Вы хотите, а делает то, что Вы написали в макросе

переменные ThisWorkbook и ActiveWorkbook не обязательно должны ссылаться на одну и ту же книгу

[Parklane1488]

Сообщение от IgorGO

допускаю что Вы хотите удалить листы из ActiveWorkbook (активной книги, той, в которую смотрите в данным момент глазами), а в макросе написано удалять листы с ThisWorkbook (из книги содержащей макрос)
так все становиться на свои места. в книге с макросм после первого запуска макроса остался 1 лист, о чем и сообщает макрос при каждом следующем запуске

дело в том, что Ексель не знает о чем Вы думаете чего Вы хотите, а делает то, что Вы написали в макросе

переменные ThisWorkbook и ActiveWorkbook не обязательно должны ссылаться на одну и ту же книгу

Огромнейшее Вам спасибо за помочь и консультацию.
Заменил ThisWorkbook на ActiveWorkbook и всё получилось.
Ещё раз благодарю за помощь.