Alguém pode me ajudar a entender o problema com esta função:

'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

o teste funciona conforme o esperado, mas quando eu uso a função na célula da planilha: = cellDisplayCol (A1)

retorna #VALUE! erro...

Alguma idéia do porquê? O que devo corrigir?

Muito Obrigado!