This simple sub could be modified to select all cells that fit a certain criteria, instead of just one at a time using the find method.
Code
Sub Select_Red_Cells()
Dim c As Range
Dim rngRed As Range
For Each c In ActiveSheet.UsedRange
If c.Interior.Color = vbRed Then 'Change this line to suit
If rngRed Is Nothing Then Set rngRed = c
Set rngRed = Union(rngRed, c)
End If
Next c
rngRed.Select
End Sub
Display More
Improvements and criticisms always welcome.