non duplicate rows

[seenu_1st]

try this bit of code to color the non duplicate rows

Dim x               As Long
Dim LastRow         As Long

    LastRow = Range("A65536").End(xlUp).Row
    For x = 1 To LastRow
        If Application.WorksheetFunction.CountIf(Range("A1:A" & LastRow), Range("A" & x)) = 1 _
            And Range("A" & x) <> "" Then
            Range("A" & x).EntireRow.Interior.Color = vbGreen
        End If
    Next