View Single Post
  #2   Report Post  
Earl Kiosterud
 
Posts: n/a
Default

Frank,

I think you're referring to the custom header, in File - Page Setup. If all
the page setup parameters (margins, rows to repeat, etc.) are to be the
same for all sheets. Set up one sheet (File - Page setup). Then select the
remainder of the sheets and use Edit - Repeat Page setup. If they're
different, and you want only to put in a custom header, use this macro:

Sub SetPageHeading()

Dim sht As Worksheet

For Each sht In Worksheets
With sht.PageSetup
.LeftHeader = ""
.CenterHeader = "My Page Heading, &""Arial,Italic""per se"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintErrors = xlPrintErrorsDisplayed
End With
Next sht
End Sub

Substitute any lines as needed. You can record a macro as you set up and
format a custom header, then use the needed lines in this macro.
--
Earl Kiosterud
www.smokeylake.com

"frankfine" wrote in message
...
... without having to change the header on each worksheet individually.