Conta no di cella con un colore particolare in una riga / colonna

Qui sto definendo una funzione per contare un no. della cella in una riga / colonna con un colore particolare,

È proprio come Countif cellcolor is = Color

 Funzione ColorCount (colorCell As Range, countRange As Range) Dim rCell As Range Dim cellCol As Integer Dim ans As Long ans = 0 cellCol = colorCell.Interior.ColorIndex Per ogni rCell In countRange If rCell.Interior.ColorIndex = cellCol Then ans = ans + 1 Fine se Avanti rCell ColorCount = ans End Function