How do I copy a custom footer to other sheets

  • Thread starter Thread starter AndyB
  • Start date Start date
A

AndyB

I have set up a custom footer with several items in and need to do the same
to lots of other spreadsheets. It would be great if I could copy the footer,
paste it in another worksheet and just amend minor details. Can this be done?
 
This little macro will copy the footers from the activesheet and paste it to
the other sheets in the workbook:

Sub FooterFixer()
Dim s1 As String, s2 As String, s3 As String
Dim sh As Worksheet
With ActiveSheet.PageSetup
s1 = .LeftFooter
s2 = .CenterFooter
s3 = .RightFooter
End With
For Each sh In Worksheets
sh.Activate
With ActiveSheet.PageSetup
.LeftFooter = s1
.CenterFooter = s2
.RightFooter = s3
End With
Next
End Sub

Macros are very easy to install and use:

1. ALT-F11 brings up the VBE window
2. ALT-I
ALT-M opens a fresh module
3. paste the stuff in and close the VBE window

If you save the workbook, the macro will be saved with it.

To remove the macro:

1. bring up the VBE window as above
2. clear the code out
3. close the VBE window

To use the macro from Excel:

1. ALT-F8
2. Select the macro
3. Touch RUN

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm
 
Back
Top