That Cell is a function, and in this case, "the value 1 if the cell is formatted in color for negative values; otherwise returns 0 (zero)."
You can write a user defined function in such a manner...
press Alt-F11, and Insert New Module
In that module define a new function such as:
Function ColorN(Cell_Color As Range)
ColorN = Cell_Color.Interior.ColorIndex
Now in the cell(A1) that you want to see what the color is type in
And if B4 is Purple, that cell will display the index of purple .
Now Change your cell Into a "-" based on a value in A1.
I hope this helps!
It's kind of fun to do the impossible! -Walter Elias Disney