Hä? Schleife läuft über Zähler raus

Der Code dazu:

______________________________________________________________
For i = 1 To ActiveWorkbook.Sheets.Count

If Sheets.Item(i).Name Like "tmp_*" = True Then
MsgBox "Temp Sheet gefunden: " & Sheets.Item(i).Name

(...)
End If



Next i
______________________________________________________________

ATM hat er 4 Sheets, i ist bei 5 - ergibt natürlich eine Fehlermeldung.

Hab ich nen Denkfehler drin oder spinnt meine Kiste völlig?

Eine mittlerweile völlig entnervte

Maria