what code pulls in contents of a cell in an Excel header/footer?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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.
 
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?
 
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
 
Back
Top