Sub FindSameCells()
Dim rng as Range, c as Range
Dim ci as Long
ci = ActiveCell.Interior.ColorIndex
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = ci Then
if rng is nothing then
set rng = c
else
set rng = Union(c,rng)
end if
end if
Next c
rng.Select
End Sub

No built in support for this.

--
Regards,
Tom Ogilvy

"Gary Adamson" wrote in message
...
Is there a way to select cells based on color?
Do I need to do this with a program or does Excel have a
function to do this?


Sub FindSameCells()
ci = ActiveCell.Interior.ColorIndex
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = ci Then
'Add this cell to the SelectionRange
end if
Next c
SelectionRange.Select
End Sub