change cell color..

[John 3:16]

Hi,
How do I change the color in a cell.

something like....
after this...
xlBook.Worksheets(3).Range("A1") = Date()

i want to do something like this....
xlBook.Worksheets(3).Range("A1").forecolor = Red


thanks in advance,
bob mcclellan

 

[Guest]

With (range object).Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

 

[Tim Williams]

xlBook.Worksheets(3).Range("A1").interior.color = vbRed

or
.... .color = RGB(255,0,0)

Tim

 

[John 3:16]

Great !
thanks guys...
I really appreciate it.

bob mcclellan