Function To count specific fill or background colored cells in a range

Hi

If you want to count the cells with a specific background color in a range like below



Here is the function

Function count_colored_values(x As Range, su As Range)
Dim Y As Range
Dim sm1 As Long
For Each Y In su
If Y.Interior.Color = x.Interior.Color Then
sm1 = sm1 + 1
End If
Next Y
count_colored_values = sm1
End Function

type like count_colored_values(f9,$A$2:$A$23)
"$A$2:$A$23" - is a range in which you have to count the cells .

"f9" - is a cell having background or fill color

the function will return the count of cells in a range passed who are having background color same as of "f9"