Funcion VBA no actualiza sola

¡ Hola !

Lo primero prenenstarme

No entiendo porque esta funcion no actualiza sola, solo lo hace cuando pulso F9

la opcion actualizar automaticamente esta activada

Function GetFontColorIndex(elrango As Range) As Integer
Application.Volatile
GetFontColorIndex = elrango.Cells(1, 1).Font.ColorIndex
End Function

necesito que al cambiar el color de la fuente de una celda se muestre en otra el numero que corresponde a ese valor.

La funcion funciona pero solo cuando le doy a F9.

no entiendo porque.

gracias de antemano