Frank did a great job helping with with the code to link a cell into th
header

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = wkSht.Range("A1").value
End With
Next wkSht
End Sub

I'm right clicking on the sheet tab and pasting this code under "vie
code". When I go back to the excel sheet I put the text I want in Cel
A1. Then go to print preview and nothing, I printed and nothing. So
Thought there might be something wrong. So I searched the forums fo
the same topic and read 5 post where this same code worked for them.

Is there a step I'm missing, I'm going crazy!
I'm using Excel 2002

Thanks in advance for the asprin!

Oh and I tried opening a plain NEW excel sheet putting "JohnDoe" i
cell A1 then pasting this code in the editor, still nothing

--
Message posted from http://www.ExcelForum.com