Dave

Macro..........

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

Alternative........

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


Gord Dibben Excel MVP

On Fri, 20 May 2005 11:38:05 -0700, "Dave"
wrote:

Is there a way to reference a specific worksheet cell in the header?

Thanks