ich habe eine Arbeitsmappe mit 40 Tabellenblättern.
Über das Makro Sub format() formatiere ich jedes Tabellenblatt einzeln. Wie kann ich das Makro über alle Tabellenblätter automatisch laufen lassen (Ausnahme Sheet Data)
Viele Grüße
Mat
Sub ftSheets()
Dim sh As Object
For Each sh In ActiveWorkbook.Worksheets
If sh.Name "Data" Then
'hier Deine Formatierungen für das jeweilige Sheet (sh.)
'zum Beispiel:
sh.Range("A1:C1").Interior.ColorIndex = 3
End If
Next
End Sub
Gruß