I have certain cells set to colorindex = 6 using Conditional Formatting.

I am trying via vba to act on these cells when encountered. When I try to
return the color value such as

xColor = Range("A1").Interior.ColorIndex

I get an incorrect result.

How do I do this and is there a way to set conditional formats vis VBA.

Thanks,

Sandy