Programatically set up footer
 

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.

Programatically set up footer
 

Never mind:

This works.

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

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

Programatically set up footer
 

Thanks for the information Epoh.

--
Jay


"Epoh Rio" wrote:

Never mind:

This works.

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

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