Header/Footer on entire workbook

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

On May 12, 5:07*pm, tonyalt3 wrote:
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

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

On Tue, 12 May 2009 14:07:58 -0700 (PDT), tonyalt3
wrote:

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