Can you repeat a footer on each worksheet within a workbook?

[Guest]

I have a multiple page workbook and would like to have the same footer appear
on each worksheet within the workbook. Is there any way to do that without
creating the footer on each sheet?

 

[Guest]

Put something like this in your Worksheet_BeforePrint Event. You can read
about workbook events here.

http://www.mvps.org/dmcritchie/excel/event.htm

Sub Workbook_BeforePrint(Cancel As Boolean)

Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Proprietary"

.RightHeader = ""
.LeftFooter = "Left Footer"

.CenterFooter = "Center Footer" '& Chr(10) & "&P of &N"
.RightFooter = ""
.CenterHorizontally = True
.CenterVertically = False
End With
Application.ScreenUpdating = True
End Sub

 

[Peo Sjoblom]

Group the sheets before you apply the footer (select the sheets that you
want to be included using either ctrl + mouse or shift + mouse), then
ungroup them when you are finished