Counting Bold words in a cell with a Macro doesn't work right

[Mirthern]

Hi! Years ago I asked for a macro for counting Bold words in a text inside a cell for something I was doing, and a user gave me that code below:

Function nBold(cell As Range) As Long
  If cell.HasFormula Then Exit Function
  Dim tmp, n As Integer, x As Integer
  tmp = Split(Application.Trim(cell.Text))
  For n = 0 To UBound(tmp)
    x = x - cell.Characters(InStr(cell, tmp(n)), 1).Font.Bold
  Next: nBold = x
End Function

And I thought It was right, but recently I started a new project and I tried to use that macro, but... Sometimes the numbers are good sometimes they're not, in one case is because a noun is repeated, in another case the nouns are repeated and the account is right, and I don't know what's the problem...

Someone can help me qith that?

 

[lrobbo314]

This seems to do it.

New__Document (1).xlsx
	B	C
4	The quick brown fox jumped over the lazy dog.	5
5	The quick brown fox jumped over the lazy dog.	3
6	The quick brown fox jumped over the lazy dog.	4
7	The quick brown fox jumped over the lazy dog.	2
8	The brown brown fox jumped over the lazy dog.	1
Sheet1

Cell Formulas
Range	Formula
C4:C8	C4	=nBold(B4)

Function nBold(cell As Range) As Long
  If cell.HasFormula Then Exit Function
  Dim tmp, n As Integer, x As Integer
  Dim used As String
  tmp = Split(Application.Trim(cell.Text))
  For n = 0 To UBound(tmp)
    x = x - cell.Characters(Len(used) + 1, 1).Font.Bold
    used = used & tmp(n) & " "
  Next: nBold = x
End Function

 

[Mirthern]

It works perfectly! Thank you so much!!