repeating custom headers on multiple pages

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
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.
 
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
 
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
 
Back
Top