Das Makro sollte auch gehen unabhängig von der Anzahl der Tabellenblätter in der Datei, da es mal 20, 50 oder auch über 100 Tabellenblätter sein können.
Vielen Dank für die Hilfe im voraus
Dies ist der Anfang meiner Aufzeichnung mit dem Macrorecorder, da steckt wohl auch der Fehler
Sub formatiere_Seiten()
'
' formatiere_Seiten Makro
' Makro am 19.10.2004 aufgezeichnet
'
'
Sheets("S1_1_1-2004-06_").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("S1_1_1-2004-06_").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("S1_1_1-2004-06_", "S1_1_1-2004-06_1", "S1_1_1-2004-06_2", _
"S1_1_1-2004-06_40", "S1_1_1-2004-06_41")).Select
Sheets("S1_1_1-2004-06_").Activate
With ActiveSheet.PageSetup