repeating custom headers on multiple pages

J

JeffP

H
I apologize in advance for such a stupid question but i have searched every help file and cant find any mention
I have a workbook with 5 sheets and i want the same custom heading to print on each sheet
I tried selecting all sheets going into print preview and adding the header but it only prints on the first page
my brain refuses to believe that i actually have to go to each sheet and retype the header and footer
please tell me i am wrong and also how i can accomplish this task

ti
Jeff
 
J

Jack

Jeff,
Using Headers and Footers should repeat the header on every page. Care to contact me and discuss it further and I will talk you through a work around if in fact you are correct
Jack
 
G

Guest

Select all the sheets, then go into Page Setup and put in
the custom header. Print Preview only works on one sheet.
-----Original Message-----
Hi
I apologize in advance for such a stupid question but i
Click to expand...
have searched every help file and cant find any mention.
I have a workbook with 5 sheets and i want the same
Click to expand...
custom heading to print on each sheet.
I tried selecting all sheets going into print preview
Click to expand...
and adding the header but it only prints on the first
page.
my brain refuses to believe that i actually have to go
Click to expand...
to each sheet and retype the header and footer.
 
J

JeffP

Thanks both very much, you saved me many hrs of work
i knew about page setup for the row&col headers and thought i had tried it with this but in any event it is now done
<May you both win the lotto in your respective states!

Now i wonder if it is possible to protect/unprotect more than one worksheet at a time

Jeff
 
G

Gord Dibben

Jeff

Only through VBA macro.

Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Protect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub

Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Unprotect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub

Gord Dibben Excel MVP
 
Top