How to get unique record using vba array.

How to get unique record using vba array.

Sub GetUniqueNameUsingArray()

Dim rng As Variant

Dim i As Integer

Dim lrow As Integer

Dim arr As Variant

ReDim rng(1 To Sheet1.Range("A1").CurrentRegion.Rows.Count) As Variant

arr = Sheet1.Range("A1").CurrentRegion.Value

lrow = 2

For i = LBound(rng, 1) To UBound(rng, 1)

If WorksheetFunction.CountIf(Sheet1.Range("A1:A" & i), arr(i, 1)) = 1 Then

Sheet1.Range("B" & lrow).Value = arr(i, 1)
lrow = lrow + 1
End If
Next i

End Sub

[riffatshaheen]

Thanks its nice but you can use collection it's very easy and hastle free.