Trouble using VB to bold & change font size on a declared range in right page header in XL2013

[flmoeron]

Using the following code to populate a header via a ribbon button push:

If Not wstInfo.Range("B7") = "" Then strCST = wstInfo.Range("B7") & ", " & wstInfo.Range("B8")

wstScope.PageSetup.RightHeader = Format(wstInfo.Range("B3"), "mmmm d, yyyy") & vbCr & vbCr & _
wstInfo.Range("B4") & vbCr & wstInfo.Range("B6") & vbCr & _
strCST & vbCr & "&B Proposal #: " & wstInfo.Range("B9")

The result looks like this with the declared ranges coming from another tab in the same workbook:

October 10, 2014

Takanka/Honda
Assembly Line Belt
Indianapolis, IN
Proposal #: 0001234

I'm looking to BOLD and change the font size for the wstInfo.Range("B4") value similar to the Proposal line.

Appreciate any and all direction/help on a direction/solution to this...

Thanks in advance!

Brian

 

[AlphaFrog]

11 is the bolded font size
10 returns to the regular font size

wstScope.PageSetup.RightHeader = Format(wstInfo.Range("B3"), "mmmm d, yyyy") & vbCr & vbCr & _
    [COLOR=#ff0000]"&""Arial,Bold""&[/COLOR][COLOR=#0000ff]11[/COLOR][COLOR=#ff0000]" & wstInfo.Range("B4") & "&""Arial,Regular""&[/COLOR][COLOR=#0000ff]10[/COLOR][COLOR=#ff0000]"[/COLOR] & _
    vbCr & wstInfo.Range("B6") & vbCr & _
    strCST & vbCr & "&B Proposal #: " & wstInfo.Range("B9")

 

[flmoeron]

Thank you AlphaFrog! That did the trick perfectly!

Many thanks!

Brian