Much better than the 1st post. try this

Sub selectyellows()
For Each cel In ActiveSheet.UsedRange
If cel.Interior.ColorIndex = 6 Then
mystr = mystr & cel.Address & ","
End If
Next cel
mystr = Left(mystr, Len(mystr) - 1)
Range(mystr).Select
End Sub

--
Don Guillett
SalesAid Software

"uobt" wrote in message
oups.com...
how can i select all the cells with same color on a sheet if there are
multipale colors by vba code