Solved: Formatting headers

[lilstevie]

Any help or guidance would be greatly appreciated

I am using the following to place the contents of a cell as the header on a sheet. I would like to adjust the font of this to BOLD, SIZE 14, And underlined.

[VBA]Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Range("BJ1").Value
End Sub[/VBA]

VBA help ("header formatting codes for headers") lists the codes to apply these settings. (&B - bold, $U - underline, &14 -size) However I can't seem to get them incorporated into the above code correctly.

Tried &B&u&10 "range("bj1").Value"b&u&10& with no luck

[RichardSchollar]

Give this a try (worked for me when testing):

[VBA]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = "&""Arial,Bold""&14&U" & Range("BJ1").Value
End Sub

[/VBA]

Richard

[lilstevie]

Thats got it - Thank You!