Kann mir bitte jemand helfen, das Problem mit dieser Funktion zu verstehen:

'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

Der Test funktioniert wie erwartet, aber wenn ich die Funktion in der Arbeitsblattzelle verwende: = cellDisplayCol (A1)

es gibt #WERT zurück! Error...

Irgendwelche Ideen warum? Was soll ich reparieren?

Danke vielmals!