Header/Footer on entire workbook


T

tonyalt3

Does anyone know how to make a header/footer for an entire workbook
instead of having to do it for each sheet?
 
Ad

Advertisements

K

krcowen

Does anyone know how to make a header/footer for an entire workbook
instead of having to do it for each sheet?

If you group the sheets, right click on any sheet tab then click
"select all sheets", then anything you do will impact all the sheets.
After you have entered your header/footer information click a single
sheet to ungroup before you start doing stuff you only wand done on a
single sheet. Otherwise you will cost yourself more time than you
just saved in efficiently entering the header/footer information.

Ken
 
K

krcowen

Does anyone know how to make a header/footer for an entire workbook
instead of having to do it for each sheet?

If you group the sheets, right click on any sheet tab then click
"select all sheets", then anything you do will impact all the sheets.
After you have entered your header/footer information click a single
sheet to ungroup before you start doing stuff you only wand done on a
single sheet. Otherwise you will cost yourself more time than you
just saved in efficiently entering the header/footer information.

Ken
 
G

Gord Dibben

You can group the sheets as the other responder suggest but that will change
all the print settings(except print range and rows to repeat).

To change just the header or footer you can loop through the sheets using
VBA

Example code.

Sub Footer22()
For Each ws In ActiveWorkbook.Sheets
With ws.PageSetup
.LeftFooter = "&""Algerian,Regular""&16" & "This is my Footer"
End With
Next
End Sub

There is all kinds of stuff can be placed into a header or footer using
code.

If you have anything specific, post back with deatils.


Gord Dibben MS Excel MVP
 
Ad

Advertisements

G

Gord Dibben

You can group the sheets as the other responder suggest but that will change
all the print settings(except print range and rows to repeat).

To change just the header or footer you can loop through the sheets using
VBA

Example code.

Sub Footer22()
For Each ws In ActiveWorkbook.Sheets
With ws.PageSetup
.LeftFooter = "&""Algerian,Regular""&16" & "This is my Footer"
End With
Next
End Sub

There is all kinds of stuff can be placed into a header or footer using
code.

If you have anything specific, post back with deatils.


Gord Dibben MS Excel MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top