Formulas in the header?

S

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

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.
 
U

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
 
U

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
 
Top