You can individually select any character or characters to be bold or
not to be bold (that is the question). The code below is only checking
the 1st character.

Function ISBold(Target As Range)
'
With Target.Characters(Start:=1, Length:=1).Font
If .FontStyle = "Bold" Then
ISBold = True
Else
ISBold = False
End If
End With
End Function


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149273