Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
'or For Each ws in ActiveWindow.SelectedSheets
ws.PageSetup.CenterHeader = ws.Range("A1").Value
Next


Gord Dibben MS Excel MVP

On Thu, 13 Sep 2007 12:00:03 -0700, quattda
wrote:

I have a similar issue and I used this VBA code and it worked. However, I
have nineteen different worksheets w/charts on each which I would like to
have the info from a cell placed as the header when each worksheet is
printed. How do I modify this code to accomplish this?

"Earl Kiosterud" wrote:

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.