Option Explicit

Public Function COLOURCOUNT(ByVal rgeColouredCells As Range, _
                            ByVal iColourIndex As Integer) As Integer

   Dim rgeCell As Range
   For Each rgeCell in rgeColouredCells
      If rgeCell.Interior.ColorIndex = iColourIndex Then
         COLOURCOUNT = COLOURCOUNT + 1
      End If
   Next rgeCell
End Function