Hallo zusammen,

ich nutze dieses Forum häufig um mich schlau zu lesen - für die folgende Frage habe ich leider keine passende Antwort gefunden. Ist für Profis sicher nur eine Kleinigkeit, aber für mich als VB-Neuling tricky... Also, ich habe eine Arbeitsmappe mit 102 Arbeitsblättern. Gerne würde ich in den Blättern 3-102 jeweils einen Bereich des Blattes löschen bzw. die darin befindlichen Zellen leeren. Ich habe folgendes Makro gefunden, mit dem das problemlos geht, allerdings nur Blatt für Blatt:

Public Sub RunThroughWorkSheets()
Dim WsTab As Worksheet
For Each WsTab In Sheets
WsTab.Activate
Range("A2:F129").Select
Range("F129").Activate
Selection.ClearContents
Next WsTab
End Sub

Lieber wäre es mir, wenn die 100 Blätter automatisch durchlaufen werden, am ehesten wohl über einen Loop. Kann mir hierbei jemand helfen?

Dank und Gruß
Adrian