Appreciate your fast response however I was hoping there was a way to do
this procedure by using the existing Excel menus or if you explain to me how
to use this code. I am a novice when it comes to programing.


"Gary''s Student" wrote:

Here is an example for Yellow#6:

Sub FindYellow()
Set r = Nothing
For Each rr In ActiveSheet.UsedRange
If rr.Interior.ColorIndex = 6 Then
If r Is Nothing Then
Set r = rr
Else
Set r = Union(rr, r)
End If
End If
Next
If r Is Nothing Then
Else
r.Select
End If
End Sub
--
Gary''s Student - gsnu200769


"David" wrote:

Is there a way to find and select cells only of a certain color in order to
speed the formating of these cells. Any help would be appreciated.

Thanks David