Dim ws as Worksheet
ActiveWorkbook.Worksheets.count 'Gibt dir die Gesamtzahl der Worksheets in der aktuellen Mappe zurück
For Each ws in ActiveWorkbook.Worksheets
' "ws.Index" gibt dir die Indexnummer des aktuellen Worksheets zurück
If ws.Index > 5 then
'Deine Operation die du ausführen willst
End If
If ActiveWorkbook.Worksheets.count = ws.Index + 4 then Exit For 'Beendet die For-Schleife bei den letzten 4 ws
Next ws
Hinweis zum Index: Werden die Tabellenblätter durch den Bediener verschoben, ändert sich auch ihr Index.
D.h. die Indexnummer gibt dir nicht an, wann das ws erzeugt wurde, sondern auf welcher Position (von links nach rechts gezählt) es sich aktuell befindet.
Hoffe ich konnte helfen :)