Hvordan tæller jeg antal celler med samme farve, som indeholder tekst?

Function ColorTextCount(rRange As Range, rColor As Range) As Double
Dim rCell As Range
Dim dCount As Double
dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If IsNumeric(rCell.Value) = False And _
        IsError(rCell.Value) = False And _
        rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + 1
        End If
    Next rCell
    ColorTextCount = dCount
End Function

'IsDate(rCell.Value) = False And _

'Datoer kan også opfattes som tekst, så hvis man vil have dem sorteret
'fra, må man indføje "IsDate(rCell.Value) = False" i sin kontrol.