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" <[email protected]> wrote in message
news:[email protected]...
>
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks