Do you want to count the number of different colors? If so,


Dim Coll As New Collection
Dim Rng As Range
On Error Resume Next
For Each Rng In Range("A1:A10")
Coll.Add Rng.Interior.Color, CStr(Rng.Interior.Color)
Next Rng
Debug.Print "Different Colors: " & Coll.Count


Otherwise, post back with more details.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"scott" wrote in message
...