Format Center Header

  • Thread starter Thread starter J.W. Aldridge
  • Start date Start date
J

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?
 
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
 
Back
Top