ActiveCell.Interior.ColorIndex = 21

ActiveCell.Offset(0,3).Interior.colorIndex = 21

If you want a uniform color index

Selection.Interior.ColorIndex = 21

--
Regards,
Tom Ogilvy


"gocats" wrote in message
...
Part A) If only 1 cell in a range does has ColorIndex = 0, how can I then
set
its interior color to something else?

Part B) If only cell in a relative postion in a multiple range has
ColorIndex = 0, how can I then set its interior color to something else?