La función de hoja de trabajo definida por el usuario devuelve # ¡VALOR! error en lugar del índice de color de celda

¿Puede alguien ayudarme a entender el problema con esta función?

'the function returns the DISPLAYED color of specified cell
Public Function cellDisplayCol(ByRef c As Range) As Long
   cellDisplayCol = c.DisplayFormat.Interior.ColorIndex
End Function

Sub test()
   MsgBox cellDisplayCol(ActiveCell)
End Sub

la prueba funciona como se esperaba pero cuando uso la función en la celda de la hoja de trabajo: = cellDisplayCol (A1)

¡devuelve #VALOR! error...

Alguna idea de por qué? ¿Qué debo arreglar?

¡Muchas gracias!

Respuestas a la pregunta(1)

Su respuesta a la pregunta