Удаление листов в книге согласно критерию - VB

Формулировка задачи:

Листы: Лист 1, Лист 1 (1), Рас, Продажи, Лист1 (2)
Задача: удалить все листы за исключением тех, которые начинаются с Лист 1*, да Лист 1 тоже не удалять.

Решение задачи: «Удаление листов в книге согласно критерию»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> CustomDel()
<font color="blue">Dim</font> ws <font color="blue">As</font> Worksheet
Application.DisplayAlerts = False
<font color="blue">For</font> <font color="blue">Each</font> ws <font color="blue">In</font> ThisWorkbook.Worksheets
<font color="blue">If</font> <font color="blue">Not</font> ws.<font color="blue">Name</font> Like <font color="teal">"Лист 1*"</font> <font color="blue">Then</font> ws.Delete
<font color="blue">Next</font> ws
Application.DisplayAlerts = True
<font color="blue">End</font> <font color="blue">Sub</font>

                        