Find and list only unique results in a column

Lets say I have text in the range A1:A60000. In this range I will have some text that is the same (Example A1 = cat and A4 = cat). What I want to do is find and list all values in column A, but do not list duplicates.

Is this possible?

You could use Advanced Filter, and exclude duplicates.

Yes, but Iit won't do. I need it to be effectively automated with a formula or macro.

Originally Posted by flex

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Then
Range("a1").Select
Range(Selection, Selection.End(xlDown)).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End If
End Sub

Tried it and it's not working. I get the error "runtime error '91': Object varible or With block variable not set"

Originally Posted by flex

Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then

Range("a1").Select
ActiveSheet.Range("$A$1:$A$13").RemoveDuplicates Columns:=1, Header:=xlNo
End If

End Sub

iI've inputted the code and nothing happens...

Vbort:

An advanced filter macro will do the trick, but it's important to know HOW you want the event to launch (ie, when do you want the filter to apply), and where you want the results to go (where to list the non-dups).

With more information, it will be easier to give you workable answers.

Okay. I would like to launch the event by clicking a button that has the macro associated with it and I would like the results to go on a new worksheet.

Please let me know if you have any other questions.