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

On Wed, 2 Dec 2009 14:49:48 -0800 (PST), "J.W. Aldridge"
wrote:

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?