My macro, below, is not working:
Sub SelIfRed()
Dim rng As Range, c As Range
Set rng = Selection
For Each c In rng
If cell.Font.ColorIndex = 3 Then ' Change if not correct value for
rng.EntireRow.Select
End If
Next c
End Sub

It fails he
If cell.Font.ColorIndex = 3 Then

I can't see what the problem is. Can anyone see something that I'm not
seeing?
Thanks,
Ryan---

--
RyGuy