..PageSetup.LeftFooter = "&""Algerian,Regular""&16" & Range("A1").Value


Gord Dibben MS Excel MVP

On Thu, 15 Feb 2007 18:08:18 -0800, RCDWESTFIELD
wrote:

Dave,
can you also code font and font size into this program?
Thanks Bob

"Dave Peterson" wrote:

Instead of changing the header each time the cell changes, you could change the
header when you do a print (or printpreview).

Kind of like:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("sheet1")
.PageSetup.LeftFooter = .range("a1").value
End With
End Sub


This goes into the ThisWorkbook module.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Matthew wrote:

Is there a way to link the contents of a cell with the page header so that it
can change automatically when the cell changes. Also this would allow us to
change one cell and then link it to the header on several pages.

Thank you.
--
Respectfully
Matthew Russell

--

Dave Peterson