Counting the number of specific characters in a cell

This function should do the job

Function CountChar(CellRef As Range, CharSearch As String)
Dim c
Dim CharCount
CharCount = 0
For c = 1 To Len(CellRef.Value)
If Mid(CellRef, c, 1) = CharSearch Then
CharCount = CharCount + 1
End If
Next c
CountChar = CharCount
End Function

I haven't tested on different types of data. Works on your example.

:guitar:TextBlackTextRedTextYellow

Hi Rennie

Not to take anything away from Neals excellent help, you can also use:

=LEN(A1)-LEN(SUBSTITUTE(UPPER(A1)," ",""))

=LEN(A2)-LEN(SUBSTITUTE(UPPER(A2),"A",""))

=LEN(A3)-LEN(SUBSTITUTE(UPPER(A3),"D",""))

To get a count of specific characters.