count colours with IF formula / VBA

Option Explicit


Function CountByColor(CellColor As Range, SumRange As Range)
'
' SumByColor Function
' VBA and Macros for Microsoft Excel by Bill Jelen "Mr.Excel"
' Page 84
'
' Modified 02/04/2007 by Stanley D. Grom, Jr.
'
    Dim myCell As Range
    Dim iCol As Integer
    Dim myTotal
    iCol = CellColor.Interior.ColorIndex
    For Each myCell In SumRange
        If myCell.Interior.ColorIndex = iCol Then
            myTotal = myTotal + 1
        End If
    Next myCell
    CountByColor = myTotal
End Function

Sub enterformulainh2()
    Range("H1").Select
    ActiveCell.FormulaR1C1 = _
        "=CountByColor(RC[2],RC[-7]:RC[-1])"
    [J2].Activate
End Sub