Bold some of the cell contents

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

ActiveCell.Characters(15,6).Font.Bold = True

worked for me.

--
Regards,
Tom Ogilvy



"Brad" <[email protected]> wrote in message
news:[email protected]...
> 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

one way:

Const sPREFIX = "The Number Is "
With ActiveCell
.Value = sPREFIX & 550055
.Characters(Len(sPREFIX) + 1).Font.Bold = True
End With




In article <[email protected]>,
"Brad" <[email protected]> wrote:

> 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?

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" <[email protected]> wrote in message
news:[email protected]...
> 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

Perfect Tom!

Thanks,

Brad

"Tom Ogilvy" wrote:

> ActiveCell.Characters(15,6).Font.Bold = True
>
> worked for me.
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "Brad" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>