Change Header Font Size

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to chg the header font size on a report...I tried to set the font
to the correct size in the cell and pull it in, but it did not work. I used
the code below

Set a = .Range("C68:C68")
For Each b In a.Offset(i, 0)
ss = "MYREPORT RELEASED ON: " & FormatDateTime(b, 1)
Next b

Sheets("My_Sheet_Name").PageSetup.RightHeader = ss
'Sheets("My_Sheet_Name").PageSetup.RightHeader.Fontsize = 8 ??? Will not work

Thanks
Bret
 
Turn on the macro recorder and do view header footer. Enter a header and
format it like you want.

Turn off the macro recorder. You will see that font size is specified in
the header string. Adapt this to your code.
 
Thanks Tom...That was so easy I cannot believe I made a posting for this
question.

Thanks again!
 
Back
Top