Hi. Here is a sample I made before.<pre>
Public Clr As String
Sub ColorIndexCount()
Dim ColorCell As Range
Dim i As Integer, cnt As Integer, j As Long
Dim r As Long
Dim k()
Dim id As Integer, flg As Boolean, x As String
r = ActiveSheet.UsedRange.Rows.Count
ReDim k(1, 0)
For j = 1 To r
For Each ColorCell In Range(Cells(j, 1), Cells(j, 256))
id = ColorCell.Interior.ColorIndex
If id<> xlNone Then
For cnt = 0 To UBound(k, 2)
If k(0, cnt) = id Then flg = True: Exit For
Next
If flg = False Then
ReDim Preserve k(1, i)
k(0, i) = id
k(1, i) = k(1, i) + 1
i = i + 1
Else
k(1, cnt) = k(1, cnt) + 1
End If
flg = False
End If
Next
x = x & "-------Row" & j & "--------" & vbLf
If Not IsEmpty(k(0, 0)) Then
For cnt = 0 To UBound(k, 2)
Call WhatColor(k(0, cnt))
x = x & Clr & "(" & k(1, cnt) & ")"
Next
End If
x = x & vbLf
i = 0
Erase k
ReDim k(1, 0)
Next
MsgBox x, , "() is number"
End Sub
Sub WhatColor(xx)
Select Case xx
Case 1: Clr = "Black"
Case 2: Clr = "White"
Case 3: Clr = "Deep red"
Case 4: Clr = "Bright green"
Case 5: Clr = "Blue"
Case 6: Clr = " yellow"
Case 7: Clr = " red"
Case 8: Clr = " light blue"
Case 9: Clr = " pink"
Case 10: Clr = " green"
Case 11: Clr = "deep bluish green"
Case 12: Clr = "deep yellow"
Case 13: Clr = " purple"
Case 14: Clr = " bluish green"
Case 15: Clr = " gray 25%"
Case 16: Clr = " gray"
Case 33: Clr = "sky blue"
Case 34: Clr = "a light light blue"
Case 35: Clr = "light green"
Case 36: Clr = "light yellow"
Case 37: Clr = " pale blue"
Case 38: Clr = " rose"
Case 39: Clr = "deep purple"
Case 40: Clr = " beige"
Case 41: Clr = "light blue"
Case 42: Clr = " AKUA"
Case 43: Clr = " lime"
Case 44: Clr = " gold"
Case 45: Clr = "light orange"
Case 46: Clr = "an orange"
Case 47: Clr = " blue gray"
Case 48: Clr = "42% of gray"
Case 49: Clr = "deep bluish green"
Case 50: Clr = " SHIGURIN"
Case 51: Clr = "deep green"
Case 52: Clr = " olive"
Case 53: Clr = " tea"
Case 54: Clr = "a plum"
Case 55: Clr = "indigo"
Case 56: Clr = "80% of gray"
Case Else: Clr = "unknown"
End Select
End Sub</pre>
This message was edited by Colo on 2002-04-26 00:10