Sub iffillcolor()
For Each c In Selection
If c.Interior.ColorIndex 0 Then c.Value = 1
Next
End Sub

--
Don Guillett
SalesAid Software

"Tony Rice" wrote in message
...
Is there a function, or some VBA code that will detect
that a user has applied a fill color to a cell? I want to
reference a cell, and with a =IF function, apply a
calculation to colored cells.