OK, so I pressed the wrong key before my message was complete, but I'll
reiterate what I was trying to do. I need to check the color of each cell
within a one-row selection so that if the scheduler picks the wrong
selection, then they do not receive an Outlook appointment. I need to use a
command button to provide flexibility. Here's part of the sub:

Dim rng As Range

For Each rng in Selection
If rng.Interior.ColorIndex < 4 Then
MsgBox "You did not select the correct cells for scheduling",
vbCritical, "Improper Selection"
End If
Exit Sub
Next

What am I missing here?

Thanks,
--
Brian J. Matuschak