Jason

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").text
End With
End Sub

Change "footer" to "header"


Gord Dibben MS Excel MVP


On Fri, 21 Apr 2006 11:29:09 -0500, astrange
wrote:


I would like to populate the value of my header based on the value of
cell H1.

Any thoughts? It seems like the only options when I go to File Page
Set Up Header/Footers tab is to type in the text each time.

I have to create a bunch of printables based on a series of lists that
I was given in excel. My idea was to create a template where I could
just copy in each list and print it out. However, I am trying to avoid
having to type the header manually each time. I could just use another
cell as the title but I would like to try to use the header if
possible.

Thanks, Jason.