Finding duplicate value and display the duplicate cell address

Sub test()
Dim r1 As Range, r2 As Range, c1 As Range
Dim cfind As Range
Set r1 = Range(Range("A1"), Cells(Rows.Count, "A").End(xlUp))
Set r2 = Range(Range("B1"), Cells(Rows.Count, "B").End(xlUp))
r1.Cells.Interior.ColorIndex = xlNone

For Each c1 In r1
On Error Resume Next
Set cfind = r2.Cells.Find(what:=c1.Value, lookat:=xlWhole)
If Not cfind Is Nothing Then
c1.Interior.ColorIndex = 6
Else
GoTo nextc1
End If
nextc1:
Next c1
End Sub