can i use the color of a cell to count the different colerd cells

C

Chip Pearson

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
 
Top