Visual Basic - cómo actualizar el resultado de una función

Estimados:
He dado en la web, con el código que posteo al pie. El cual me es útil para sumar celdas con determinado color de fondo.
Ahora bien, si en el diseño de la hoja cambio el color de fondo de alguna celda, ya sumada; no veo en forma inmediata el cambio de resultado en la función =SUMCOLOR
Cómo se modifica esta función para tal solicitud.

Daniel Ulczyk


Function SumColor(rColor As Range, rSumRange As Range)

''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'http://www.ozgrid.com/VBA/Sum.htm
'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function

Lo que tienes q hacer es luego del evento q cambias de color, llamar nuevamente a la funcion con el call luego de eso te funciona
bye suerte