To find duplicate element in excel cols (VBA Code -Excel Macros)

Const strDATA As String = "D"
Const newLIST As String = "E"

Public Sub Tl_Generic()
Dim strHTMLmain, strHTML, newFLAG As String
Dim i, j As Integer

For i = 3 To 13
Range(newLIST & i).Value = ""
strHTMLmain = Range(strDATA & i).Value

For j = 3 To 13
strHTML = Range(strDATA & j).Value

If strHTMLmain = strHTML Then
newFLAG = Range(newLIST & i).Value
Range(newLIST & i).Value = newFLAG & "-" & j

End If

Next j
Next i
MsgBox "done!"
End Sub