Change Font Color for regularly updated headers for all Excel workbook

[OneCat]

Hi,
I'm a new in VBA and I need help.
With this macros I'm updating the all sheets in the excel workbook regularly
Sub PQ()
Dim myRange As Range
Set myRange = Application.Selection
Set myRange = Application.InputBox("Select One Single Cell that you want to put its into Header or Footer", "InsertCellValueIntoHeader", myRange.Address, Type:=8)
For Each mysheet In Application.ActiveWorkbook.Worksheets
mysheet.PageSetup.CenterHeader = myRange.Value
Next
End Sub
How can I add Bold Century Gothic font with particular RGB Color to the macros?

 

[OneCat]

I'm sure, I will visit the forum often