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