Formulas in the header?

[SandyB]

We want to put the worksheet title (from cell A1) into the
header automatically...any way to do that?
Formulas aren't working...
Inserting fields doesn't work...

Anything else I can try?

Thanks!

 

[J.E. McGimpsey]

Put this in your ThisWorkbook code module (right-click on the
workbook title bar and choose View Code):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
With wkSht
.PageSetup.LeftHeader = .Range("A1").Value
End With
Next wkSht
End Sub

you can substitute RightHeader or CenterHeader for LeftHeader.

 

[universal]

Ive just tried this for my own Header.

Is it possible somehow to also set the font and size so that it can
match the settings I have for my Footer (which is set the same for
every page).

Many Thanks

eddie

 

[universal]

Is it possible somehow to also set the font and size so that it ca
match the settings I have for my Footer (which is set the same fo
every page).

Many Thanks

eddi