Option Explicit
 
Sub test()
'----------------------------------------------------------------------
'Alle Blätter einer Mappe erfassen / FOR...STEP - NEXT Abfrage
    Dim mappe, i
 
    For Each mappe In Sheets
      Debug.Print mappe.Name
    Next mappe
    Debug.Print "---------------"
 
    For i = 1 To Application.Sheets.Count Step 1
      Set mappe = Sheets(i)
      Debug.Print mappe.Name
    Next i
    Debug.Print "==============="
 
End Sub

Gruß aus Mittelfranken
Heinz