Programatically set up footer

[Epoh Rio]

How can I programatically configure page numbers based on a worksheet
that has the correct page number for the corresponding worksheet?

Example: Each worksheet in workbook is one page, but the pages change
fairly often. I want to keep a "master page number" worksheet that can
be updated easier than going into each worksheet and setting the
footer.

 

[Epoh Rio]

Never mind:

This works.

Sub UpdateFooter()
ActiveSheet.PageSetup.Leftfooter = Range("A1").Value
End Sub

http://support.microsoft.com/kb/273028

 

[Guest]

Thanks for the information Epoh.