Format font for inputbox result for Header

[jtakw]

Hi Everyone,

I've created a simple macro to enter Center Header to worksheet, but can't figure out how to make the result font to be Bold and size 14 when it's actually in the Header.

Sub ChangeHeaderFooter ()
Set ws = ActiveSheet
Center = InputBox("Enter Center Header")
        If Center = "" Then Exit Sub
        Application.StatusBar = "Changing header/footer in " & ws.Name
        ws.PageSetup.CenterHeader = Center
        Set ws = Nothing
    Application.StatusBar = False
End Sub

Thank you for your help.

 

[Andrew Poulsom]

The macro recorder should give you the VBA code you need.

 

[jtakw]

The macro recorder should give you the VBA code you need.

Thanks for your reply, but recording the macro doesn't tell me where to put my inputbox result - Center.

 ws.PageSetup.CenterHeader = "&""Calibri,Bold""&14"

Thanks again

 

[jtakw]

OK, I got it now. Thanks.