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

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--

HTH

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


"Brian __ Lowe" <Brian __ wrote in message
...
I need to show the content of a specific cell in the custom page header
when
I print my worksheet.

I'm sure it can be done because I did it way back in Excel 95 or 97, but I
can't find the right search term to locate it in the help, and the wizard
guidance only helps me put file/sheet/date/page data values in there.

So, how do I get the content of cell $D$1 to appear as part of the page
header?