Office: (Office 2010) User automatisch in jedem Register

Hallo!
ich möchte, dass in jedem Register meiner Datei die gleiche Kopfzeile automatisch ausgefüllt wird

Leider will Excel nicht ganz so wie ich es will und mein VBA-Code funktionier nicht

Kann mir jemand von euch weiterhelfen - VIELEN DANK!!

Private Sub Workbook_Open()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
With Sheet.PageSetup
.LeftHeader = "&A"
.CenterHeader = "Zeiterfassung/Reisekostenabr."
.RightHeader = Application.UserName
.LeftFooter = ""
.CenterFooter = "gedruckt am &D"
.RightFooter = "&ISeite &P von &N"
End With
Next ws
End Sub

 

Hi!
With Sheet.PageSetup ist falsch!
With ws.PageSetup ist richtig.
Benutze nach Möglichkeit Code-Tags (erweiterte Antwort), ist besser zu lesen:

Code:

Private Sub Workbook_Open()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
   With ws.PageSetup
      .LeftHeader = "&A"
      .CenterHeader = "Zeiterfassung/Reisekostenabr."
      .RightHeader = Application.UserName
      .LeftFooter = ""
      .CenterFooter = "gedruckt am &D"
      .RightFooter = "&ISeite &P von &N"
   End With
Next ws
End Sub

P.S.: die sind in diesem Forum aber verdammt gut versteckt …

Gruß Ralf