Hi Trev

You can use Advanced Filtering to produce a unique items list, or you
could use the following code that produces a collection of unique items
(it uses the value in the cell as the key in the collection.Add method
with an On Error Resume Next which means if that key already exists ie
it's a duplicate, then the code skips over to the next cell).

Sub test()
Dim coll As New Collection, c As Range, i As Long
With Sheets("Info")
On Error Resume Next
For Each c In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
coll.Add c.Value, c.Value
Next c
End With
On Error GoTo 0
For i = 1 To coll.Count
Debug.Print coll(i)
Next
End Sub

Give it whirl! I hope it helps!

Richard


Trever B wrote:
Hi,

Thanks in advance

Need to create a list from a worksheet "Info" Column A

Problem is lots of repeats.

I would like just every diferent entry (No Repeats)

Hope you can help.

Don't no where to start

Thanks

Trev