CODE FOR HIGHLIGHTING DUPLICATE VALUES IN DIFFERENT COLORS

Sub Highlight_Duplicate_Entry()

    Dim cel As Variant

    Dim myrng As Range

    Dim clr As Long

    Set myrng = Range("A2:A" & Range("A65536").End(xlUp).Row)

    myrng.Interior.ColorIndex = xlNone

    clr = 3

    For Each cel In myrng

        If Application.WorksheetFunction.CountIf(myrng, cel) > 1 Then

            If WorksheetFunction.CountIf(Range("A2:A" & cel.Row), cel) = 1 Then

                cel.Interior.ColorIndex = clr

                clr = clr + 1

            Else

                cel.Interior.ColorIndex = myrng.Cells(WorksheetFunction.Match(cel.Value, myrng, False), 1).Interior.ColorIndex

            End If

        End If

    Next

End Sub