function IsShapeExists(ws as worksheet, s as string)
dim osh as shape
on error resume next
set osh = ws.shapes(s)
IsShapeExists = not osh is nothing
end function

Sub CallCheck()
dim ws as worksheet
for each ws in thisworkbook.worksheets
if IsShapeExists(ws,"КнопкаЗОР") then
'здесь есть кнопка с именем "КнопкаЗОР"
end if
next
end sub

Sub CycleByNames()
dim ws as worksheet
dim arr,x
arr = array("Лист1","Лист5","Отчет")
for each x in arr
set ws = thisworkbook.sheets(x)
'что-то делаем с листом, например, активируем
ws.Select
next
end sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Flag = True
    Call ЗАКРЫТЬ
End Sub

Public Flag As Boolean
Sub ЗАКРЫТЬ()
'Выполняются операции только на активном листе
    ActiveSheet.КнопкаЗОР.Caption = "ЗАКРЫТО"
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    If Not Flag Then Exit Sub
'Все последующие строки будут выполнены только в том случае, если макрос был вызван по событию
    For i = 1 To Sheets.Count
        If Worksheets(i).Name <> "Лист1" And Worksheets(i).Name <> "Лист3" Then
            Sheets(i).Activate 'Активация листа только для примера: здесь нужные операции с листами
        End If
    Next
    Flag = False
End Sub

Sub M55_DelRows2()
    Dim x As Range, y As Range, fst As String
    Set x = [B:B].Find(0, , xlValues, xlWhole)
    If Not x Is Nothing Then
        fst = x.Address
        Do
            If y Is Nothing Then Set y = x Else Set y = Union(y, x)
            Set x = [B:B].FindNext(x)
        Loop While fst <> x.Address
        y.EntireRow.Delete
    End If
End Sub