Greetings:

In trying to modify and copy some code posted on this board, I'm
unsuccessful in trying to get the color of each cell and throw an error
message. Based on the user needs, I need them to select a range of cells
(fortunately, in the same row), click a command button, and then send an
Outlook appointment item--that part's easy.

So, recipients that are properly scheduled have their cells changed to
green; others are orange. Thus, this is what I'm trying to do in the sub:

Dim rng As Range

For Each rng in Selection
If rng.Interior.ColorIndex < 4
--
Brian J. Matuschak