Count cell with color

[xShaider]

Function CountCellsByColor(rng As Range, color As Long) As Long Dim cell As Range Dim count As Long count = 0

For Each cell In rng
    If cell.DisplayFormat.Interior.Color = color Then
        count = count + 1
    End If
Next cell

CountCellsByColor = count

End Function