Michael,
I appear to have lost the original,
The code for font size is &nn so if you set the font size to 16 in cell A1
type
&16NREMTP
or
in the
vb line type asuming this is within the With ActiveSheet.PageSetup
..CenterHeader = "&16" & Range("A1")
You may like to check that you are correctly picking up the value in cell A1
with a msgbox.
--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.
"michaelberrier" wrote:
The vb code for setting a font size for a custom header that is static
is this:
..CenterHeader = "&16NREMTP"
But what if your header is set to a particular cell value, like this:
..CenterHeader = Range("A1") ?
I've tried putting the &16 everywhere with and w/o quotes and it fails
every time.
Thanks.