Function to Return ColorIndex of Cell 1

[krymat]

I'm looking for a function that returns the colorindex of a cell.
Something like =ReturnColor(A1)
if "A1" is red then return 3

 

[vbMax]

Place the following function in a code module...

Function ReturnColor(cellName As String)
ReturnColor = Range(cellName).Interior.ColorIndex
End Function

You can then reference in a cell with...
=ReturnColor("A1&quot

 

[krymat]

Is there a way to return a cell address with a function, for example:
=ReturnCellAddress(A1) = "A1"

 

[krymat]

Function ReturnColor(RangeName)
For Each cell In RangeName
ReturnColor = Range(cell.Address).Interior.ColorIndex
Next cell
End Function

This is the exact function I wanted.

 

[logius]

Good job, you get a star. s-) ----------------------------------------
If you are reading this, then you have read too far...

lightwarrior@hotmail.com