Function Count_Color does not work at any given color

[AdenD]

Hello,

I find beneath VBA on the Internet. I installed & tested it.
But it won't work for any color given.
Your help is very appreciated

Function COUNT_COLOR(range As range, color As range)
    Dim COLORC As Integer
    Dim COUNTT As Integer
    COLORC = color.Interior.ColorIndex
    Set IC = range
        For Each IC In range
            If IC.Interior.ColorIndex = COLORC Then
            COUNTT = COUNTT + 1
        End If
        
        Next IC
            
    COUNT_COLOR = COUNTT
        
End Function