What problem are you having? The code you posted should work.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Brian J. Matuschak"
wrote in message
...
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