How do I refer to a cell from header

[istor]

How can I customize the header to refer to a specific cell in th
worksheet

 

[Bob Phillips]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sText As String
With ActiveSheet
.PageSetup.LeftHeader = .Range("A1").Value
End With
End Sub