Thread: Formatting center header

Hi all,
I'm trying to find some code that will format the center header to Arial Bold, size 14.
Currently I have the center header populated with the cell value E9 using -

ActiveSheet.PageSetup.CenterHeader = Range("E9").Value

I've been digging around on the internet, but can't figure out how to format the text automatically.

Thanks in advance!

Hello RPOD,

Here is the code...

Code:

ActiveSheet.PageSetup.CenterHeader = "&""Arial""&14 " & Range("E9")

One of those cases where recording a macro shows the way:

Code:

Sub Macro1()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&""Arial,Bold""&14Bob" ' I entered "Bob" manually
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 1200
        .CenterHorizontally = False
        .CenterVertically = False
End Sub

Then change to:

Code:

    ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold""&14" & Range("E9").Text