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
Bookmarks