This code, placed in the ThisWorkbook code module, automatically picks up
the cell value when printing.


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Activesheet.Range("A8").Value
End Sub



--

HTH

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


"KimberlyC" wrote in message
...
Hi

Is it possible to reference a cell ( for example A8) of the active
worksheet
in the header section of the worksheet (for printing purposes).?

If yes... how???

Thanks in advance for you help!
It's greatly appreciated.
Kimberly