Highlighting a portion of a cell

[timbo.hobo]

Hi,
I need to make only the last few characters in a cell bold font (ie: turning "12345" to "12345")

Is this possible with VB code?

Thanks.
Tim.

 

[DominicB]

Good evening timbo.hobo

This code will do the trick. BUT...

it won't work on numeric strings, only text strings.

Sub Test()
ActiveCell.Characters(Start:=3, Length:=3).Font.Bold = True
End Sub

HTH

DominicB

 

[HalfAce]

Hello Tim,
DominicB's code will make the 3rd, 4th & 5th characters bold, no matter how many characters there are in the active cell.

If you're looking to make the last two characters bold, no matter how many characters there are, then perhaps something like this instead.

Sub Demo()
NumChr = Len(ActiveCell)
With ActiveCell.Characters(Start:=NumChr - 1, Length:=2).Font
    .FontStyle = "Bold"
End With
End Sub

However, as DominicB pointed out, this will only work on text entries, or numbers formatted as text.

 

[timbo.hobo]

Wow thanks for the quick replies, I will give those a try, thanks again!

Tim.