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

This code should go in the ThisWorkbook code module.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Judd Jones" wrote in message
...
I have a workbook with about 20 worksheets. I need to be able to change
the
date that is typed into the header. Is there a way to reference a cell
with
the date that I want as part of my header. Any help or direction would be
nice.