Cellebgfarve: AutoOpdatering af antal

Nu har jeg søgt på nettet og fundet frem til denne VB funktion, som tæller baggrundsfarve, dog kan jeg ikke få den til at opdatere automatisk når jeg har farvet en celle inden for området - Er det muligt at gøre?

Min funktion ser således ud:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
 
    lCol = rColor.Interior.ColorIndex

    If SUM = True Then
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = WorksheetFunction.SUM(rCell,vResult)
            End If
        Next rCell
    Else
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = 1 + vResult
            End If
        Next rCell
    End If
  ColorFunction = vResult
End Function
******************************************

=ColorFunction($B$9;$C$27:$W$32)