Sumar Color Actualizado

He actualizado lo que vimos en el video pasado de como sumar por colores, ahora se muestra como guardar apropiadamente el archivo, como colocar el codigo y verificar cerrando y abriendo el archivo.
Este es el codigo:
Function SUMARCOLOR(ByVal rango As Range, miColor As Range)
Dim Celda As Variant, cColor As String, nColor As Variant
Dim nRango As String, dato As Variant
cColor = miColor.Address
nColor = Range(cColor).Interior.Color
For Each Celda In rango
nRango = Celda.Address
If Range(nRango).Interior.Color = nColor And IsNumeric(Celda) Then dato = dato + Celda
Next Celda
SUMARCOLOR = dato
End Function

[alondragutierez]

Excelente! El mejor video, mil gracias, me ha ayudado bastante :).

[RMMP]

No hay forma de que al cambiar el color se actualisen los totales?