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

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

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