Cell Reference in Header

[Dave]

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

Thanks

 

[Gord Dibben]

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