Hilmar,

I asked some how to create a macro. I formatted a cell with a background color of RED. Here is what the code says:

Range("A1").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

So I tried:

.RANGE( "A1" ).Interior.ColorIndex = 3

This worked. So I did the same for all the other colors I'll need.

Thanks for the help.
Mike