Seems the easiest way is to simply sort on the column. What do you want to do
it you find duplicates?

Just print the cell numbers elsewhere on the worksheet, where there
will then be manual intervention.

-tom

Just wanted to share the final solutions - I played with the find
method of Range, but it just was not happening for me. While ugly, it
solved the problem.

Thanks to all.
------------
Sub checkContents()

Dim intRow As Integer
Dim cellString As String
Dim testString As String
Dim cellAddress As String

For Each cell In Range("k1", "k5072")
intRow = 5072
cellString = cell.Text
cellAddress = cell.Address

Do While intRow < Range(cellAddress).Row
testString = Cells(intRow, 11).Text
If testString = cellString Then
Cells(intRow, 12).Interior.ColorIndex = 46
Cells(intRow, 12).Value = cellAddress
End If
intRow = intRow - 1
Loop

Next cell

MsgBox "Done!"

End Sub
--------------

-tom