Sub Header()
Dim sh As Worksheet
Application.ScreenUpdating = False
Application.PrintCommunication = True
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Change History and Approvals", "Key"
Case Else
With sh.PageSetup
.PageSetup.LeftHeader = Worksheets("Standards").Range("I6") & vbLf & "Rev.:" & " " & Worksheets("Standards").Range("I4") & vbLf & "Date (Rev.):" & " " & Worksheets("Standards").Range("I5")
.PageSetup.CenterHeader = ""
.PageSetup.RightHeader = "&G"
.PageSetup.LeftFooter = ""
.PageSetup.CenterFooter = "&""Arial,Fett""&9&K0070C0PFC" & Chr(10) & "Page &P of &N"
.PageSetup.RightFooter = ""
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
End With
End Select
Next
Application.PrintCommunication = False
Application.ScreenUpdating = True
End Sub