Farben zählen auch wenn etwas in der Zel

Function mit der ich Farben zähle

Function Color(rng As Range, icolor As Integer, rngDatum As Range)
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct = "" And rngAct.Interior.ColorIndex = icolor   Then
iCount = iCount + 1
End If
Next rngAct
Color = iCount
End Function


was auch sehr gut funktioniert, aber jetzt hab ich folgendes Problem ich muss nun auch die Zellen zählen die eben die farbe haben aber in denen auch ein HO steht

Hoffe ihr könnt mir helfen

Danke schonmal