Header / Footer code

[Dr. Demento]

I have the following code and it works appropriately. However, I have decided to have a global constant where I can pick my font and make it be uniform everywhere and if I want to change it, I only have to change a single variable. My questions is: how do I adapt this code such that instead of Calibri in the header, it references the global string constant 'font_univ'??

.CenterHeader = strFont & "File:  &F  ||  Sheet: &""[Calibri],Bold""&KDB2929&A&""[Calibri],Regular""&K01+000"

The variable strFont = "&""[" & font_univ & "]""&10" and it occurs to me that I can eliminate the [Calibri] reference in the CenterHeader completely! Still, don't know how to do that either And, I'm not sure I set up strFont appropriately either; it was originally:

strFont = "&""["Calibri"]""&10"

I need all sorts of help. Thanks y'all.

 

[Norie]

Declare strFont like this.

strFont = "Calibri"

Use it like this.

.CenterHeader = strFont & "File:  &F  ||  Sheet: &""[" & strFonr &"],Bold""&KDB2929&A&""[" & strFont & "],Regular""&K01+000"

 

[Dr. Demento]

Thanks, Norie but that doesn't seem to work. When I look in Page Setup, the font is listed as "[Calibri]" (with brackets) and is the default font, not what I want.

Also, if the first statement of the CenterHeader details the font, can I and how would I eliminate it from the remainder of the line?

Thank much, kind sir.

 

[Norie]

When I look in Page Setup I also see Calibri highlighted, but when I change the font with the code to, say, Arial and print CenterHeader to the Debug window I see Arial.

strFont = "Arial"
Sheet1.PageSetup.CenterHeader = "File:  &F  ||  Sheet: &""[" & strFont & "],Bold""&KDB2929&A&""[" & strFont & "],Regular""&K01+000"
Debug.Print Sheet1.PageSetup.CenterHeader

 

[Dr. Demento]

I think I was trying to over-complicate it. Thanks, Norie!

I want to be puffin when I grow up!!