Funcion VBA no actualiza sola

¡ Hola !

Lo primero saludar, ya que soy nuevo en el foro.

Tengo una funcion muy simple que me actualiza sola. La idea es que me de el numero del color de la fuente del texto que esta en la celda (1,1)

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

solo me da el numero del color si pulso F9

Alguien me puede decir porque no lo hace automaticamente

gracias