Fußzeile

habe vor einigen Tagen diesen Makro, zu Ausdrucken von 5 Blättern, im Forum bekommen
der auch einwandfrei klappt.

Sub Blätter_drucken()
Sheets(Array("Blatt 1 - 1.2", "Blatt 2 und 3", "Blatt 4", "Blatt 5 und 6", "Blatt 7 - 15")).PrintOut
End Sub

Nun brauche ich aber noch die Funktion „CenterFooter“ dazu.

Auf allen 5 Blättern soll in der Fußzeile der Wert aus der Zelle A6 von Blatt 1 – 1.2
und der jeweilige Blattname der einzelnen Blätter stehen.

Im voraus Dank an alle

Gruß Peter