isthisthat

Sub ColorUniqueInSelection()
'
' Colors each unique cell text in selection with a different color
'

Dim tmp As String
Dim arr() As String

' check selection
If Selection.Cells.Count < 2 Then