Hi!
I inserted my code and added some comment. I hope that somebody can find the mistake.
Function CountBold(WorkRng As Range)
Dim i, xcount As Integer
For i = 1 To Len(WorkRng)
If WorkRng.Characters(i, 1).Font.Bold = True Then
If WorkRng.Characters(1...