Assume a date is entered in cell B10 of sheet 1.

Sub borne()
myDate = Sheets(1).Range("B10").Value
Sheets(1).PageSetup.RightHeader = myDate
End Sub



"marcia2026" wrote in message
...
Is it possible to programmically add the contents of a particular cell as
part of the header. This routine opens a report created in a txt format
in
Excel. It will be done over and over again. I would like to be able to
the
dates of the report into the header so that the user does not have to do
it
manually each time.

thanks