Try something like

Dim Pos As Integer
ActiveCell.Value = "The number is 123"
Pos = InStrRev(ActiveCell.Value, " ")
ActiveCell.Characters(Pos + 1, 999).Font.Bold = True



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Brad" wrote in message
...
Thanks for taking the time to read my question.

It is possible to apply the Bold font setting to an entire
cell. It is also
possible to apply the Bold setting to portions of text in a
cell and leave
the remaining portions unbolded (if that's a word...).

How can you do that in VBA?

Ex:

Activecell.value = "The Number Is 550055"

I want "550055" to be bold, and the rest not bold.

How do I do this in VBA?

Thanks,

Brad