A simple UDF

[Endeavouring]

Hi
I'm trying to get the font color of text which works fine but why does black return the value -4105 ?

Public Function fontval(cellVar As Range)
fontval = cellVar.font.ColorIndex
End Function

thanks in advance

 

[mikerickson]

Probably because the font color is Automatic not Black.

 

[meldoc]

Hello

I think you have the font set to automatic, instead of black.

 

[Endeavouring]

Thanks gentlemen you were correct