I found a work around. I created a new cell, combined the other two with a
dash in the middle, and then referenced that cell instead. Thanks!
"Andy Pope" wrote in message
...
Hi,

You can add formatting codes to change font size and bold.

ActiveSheet.PageSetup.RightHeader = _
"&20&B" & Format(Worksheets("Time Period Info").Range("B3").Value)

Where &B Turns bold printing on or off and &nn Prints the characters that
follow in the specified font size. Use a two-digit number to specify a
size in points.

Use the Help and serach for 'Formatting Codes for Headers and Footers' for
a comprehensive list.

Cheers
Andy

Stacey wrote:
Hello,
I wanted to reference a cell value in my spreadsheet header and found
out how to do that using this function:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim WS As Worksheet
For Each WS In Worksheets
ActiveSheet.PageSetup.RightHeader = _
Format(Worksheets("Time Period Info").Range("B3").Value)
Next WS
End Sub
However, this leaves my text for this portion of the header at Arial
Size 10 font Regular. I would like it Arial Size 20 Bold. How can I set
it to this format of text?
Thanks for the help!
--Stacey

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info