displaying a cell's value in a page header when printing

  • Thread starter Thread starter Paul James
  • Start date Start date
P

Paul James

Is there a way to display the value in a cell in a custom page header?

(Assume the cell's range is named "CompanyName" and it's located on a
worksheet named "DataEntry").

Thanks in advance.

Paul
 
Paul

Sub CellInFooter()
With Sheets("Data Entry")
.PageSetup.CenterFooter = .Range("Company Name").Text
End With
End Sub

Could also be fitted into BeforePrint code in ThisWorkbook.

Gord Dibben XL2002
 
Back
Top