Gord,

You seem to be the wizard of excel and I appreceate the help. I have tried
to type "ws.Range("A1").Value" exactly into the header box with no success.
This line just appears as the header. Can you tell me what I'm doing wrong or
what exact steps I need to take to make this work. Thanks again.

Dave

"Gord Dibben" wrote:

Sub CellInHeader()
With ActiveSheet
.PageSetup.CenterHeader = .Range("A1").Value
End With
End Sub

Sub CellInHeaderr22()
With ActiveSheet.PageSetup
.LeftHeader = "&""Algerian,Regular""&16" & Range("A1").Value
End With
End Sub

Sub Cell_In_All_Headers()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.PageSetup.CenterHeader = ws.Range("A1").Value
Next
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Jun 2009 12:53:01 -0700, DaveC
wrote:

any help on this? I would like to use the contents of a cell to auto-populate
the header. Thanks for any assit.