удаление значений в ячейках

[pirat:)]

Нужна помощь! Нужно при нажатии кнопки создать событие удаляющее данные из ячеек. Точнее: есть большое количество листов, нужно удалить значения в ячейках b1 и b2 на каждом листе кроме одного листа.

[EducatedFool]

Нужно знать точно имя листа, на котором ячейки не надо очищать.

Сам макрос очень даже простой, но без названия этого листа - никак.

Лучше будет, если Вы прикрепите к сообщению файл, в котором это надо реализовать.

[pirat:)]

лист называется "Сводный"

[EducatedFool]

Вот весь макрос:

Option Compare Text

Sub Очистка()
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        If Not sh.Name Like "*сводный*" Then sh.Range("b1:b2").ClearContents
    Next
End Sub

А вот пример:

[pirat:)]

Огромное спасибо!