Ronny,

To my knowledge, there's no code. But you can paste this into the
ThisWorkbook module:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").PageSetup.CenterHeader = Sheets("Sheet1").Range("A1").Value
End Sub

To do that, get into the VBE (Alt - F11). Double-click the ThisWorkbook
item in the Project manager, which should open a window for the code behind
the workbook. Then paste the code in from here.

It will set the page header to the contents of A1 before you do a print or
print preview.
--
Earl Kiosterud
www.smokeylake.com

"Ronnyk" wrote in message
...
I want to put a code in a header/footer to pull in the contents of cell a1.
I thought it was \A1, but this doesn't work, and I can't find any
reference
to how to do this.