In Excel 2003, I would like to add a cell reference to my page footer. Users
could then change the data via the worksheet and not have to go into page
setup. Is this possible?

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value
End With
End Sub

Assign to a button or shortcut key combo.

Alternative..........You may want to place this into a BeforePrint event

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value
End With
End Sub


Gord Dibben MS Excel MVP

On Tue, 12 Aug 2008 13:27:21 -0700, scheduling
wrote:

In Excel 2003, I would like to add a cell reference to my page footer. Users
could then change the data via the worksheet and not have to go into page
setup. Is this possible?