Excel Macros for conditional formatting statement in Excel

I have a cell that is colored according to a conditional formatting statement. I want to copy the color to another cell using a macro but I can't find the property. In particular, Range.Interior.ColorIndex is NOT set. I can examine the colors using Range.FormatConditions(index) Interior.ColorIndex but I can't tell what value to use for "index" (a conditional format has up to 3 conditions and thus index is a number between 1 and 3 but I don't know which one is currently active).

You are copying the conditional format to the other cell. If the condition isn't there then the color won’t show. If you want the color in the other cell then best just set the color. range ("a1").interior.colorindex = 42 if you don't know the color index then in a blank workbook past the following in a module. Save it for future reference.

Code:

---

Sub macGetColors()
' Macro written 2/10/02 by FSt1
Sheets("Sheet1").Select
Range("B2").Select
Set ci = Range("A1")
ci.Value = 1
Set c = Range("B2")
Do Until ci > 56
Set c2 = c.Offset(1, 0)
Set cnum = c.Offset(0, 1)
c.Interior.ColorIndex = ci.Value
c.Offset(0, 1) = ci.Value
ci.Value = ci.Value + 1
Set c = c2
c.Select
Loop

End Sub

---