Excel VBA header and footer font size

[Pookster]

Hi all,

I have silently used this site for a while now, always managing to find the answer I needed until now!!

I have a workbook, the coding contained within was originally created by someone else, that uses a userform macro to populate some custom doc properties and some named cells. The information used in these cells are then used to build the headers and footers when the userform "ok" button is activated.

I have made some changes which were needed and everything works great except that I cannot get the centre header and footer font type and size as is required. I need the font to be size 16 and bold, but I just cannot get it to work.

The code used to populate the centre header and footer is as follows:

If .CenterFooter <> valuePM Then .CenterFooter = valuePM
If .CenterHeader <> valuePM Then .CenterHeader = valuePM

PM being a custom doc property.

Please can the collective help, for I am a lost soul!!!


Regards,

Pookster.

 

[VoG]

Hi. Try like this

If .CenterFooter <> valuePM Then .CenterFooter = "&""Times New Roman,Regular""&16" & valuePM

 

[Pookster]

Hi thanks for the reply,

I'm afraid that this doesn't work.

The H & F still is unchanged...


Regards,

Pookster.