Макрос для перебора всех листов в книге

 Sub WorksheetLoop()
         Dim WS_Count As Integer
         Dim I As Integer
         WS_Count = ActiveWorkbook.Worksheets.Count
         For I = 1 To WS_Count
            MsgBox ActiveWorkbook.Worksheets(I).Name
         Next I
      End Sub

Sub WorksheetLoop2()
         Dim Current As Worksheet
         For Each Current In Worksheets
            MsgBox Current.Name
         Next
      End Sub