the green tick mark generally indicates a resolved problem, in this forums

you can try like
vb Code:
  1. set r =  range("a1:j10")
  2. for each c in r
  3.     set f = r.find(c.value)
  4.     if not f is nothing then msgbox "cell " & c.address & " matches cell " & f.address
  5. next