Format Center Header

[J.W. Aldridge]

The value I want for each header is:

Range("C4").Value

Need an example code to see how to make the font bold and increase to
size 20.

Does this have to be a " before print" code, or just any ole sub will
do?

 

[Gord Dibben]

Sub Cell_In_Header()
With ActiveSheet.PageSetup
.CenterHeader = "&""Algerian,Bold""&20" & Range("C4").Value
End With
End Sub

I threw in the "Algerian" font just for example.

Can be run as is or in BeforePrint............your choice.


Gord Dibben MS Excel MVP