recalcular funcion definida

Hola a tod@s Tengo la siguiente función que me cuenta (=contarcolor(B9:AF9)) un determinado color de fondo (amarillo) de varias celdas: Function ContarColor(Rg) Dim C As Range For Each C In Rg.Cells If C.Interior.ColorIndex = 6 Then ...