Excel Duplicate Values

[ashe]

Hi all,

Sub HighlightDuplicates()
    ' A & B are the columns which we hv to check the duplicate values
    Worksheets("sheet1").Range("A:B").Select
    ' conditional formatting code
    With Selection
        .FormatConditions.AddUniqueValues
        .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).DupeUnique = xlDuplicate
    End With
    With Selection.FormatConditions(1).Font
        .Color = vbRed
        .TintAndShade = 0
    End With
End Sub

Is this correct way to highlight the duplicate entries between the 2 columns

[kaliman79912]

yes. It could be a bit simplified but its correct

With Worksheets("sheet1").Range("A:B")
    .FormatConditions.AddUniqueValues
    .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).DupeUnique = xlDuplicate
    .FormatConditions(1).Font.Color = vbRed
End With