Count Number If Colored Cells

I received this code and formula from this board some time ago. My question is, how do i edit the code (and or formula) so it will count any color i choose? (red,green,yellow,etc.)

Here is the code;

Function CountColor(Rng As Range, RngColor As Range) As Integer
Dim Cll As Range
Dim Clr As Long
Clr = RngColor.Range("A1:a100").Interior.Color
For Each Cll In Rng
If Cll.Interior.Color = Clr Then
CountColor = CountColor + 1
End If
Next Cll
End Function

Once i enter this code in a new module, i use the following formula to get my answer on number of colored cells;

=countcolor(A1:A99,D2)