How do I remove duplicates

[duncansancho]

I often have lists in excel which contain duplicate entries.
Untill now I have been sorting the list alphabetically and then running the following code but it is slow slow slow. There must be a better way, please?

Range("A3&quot.Select
Do Until ActiveCell = ""
Do While ActiveCell = ActiveCell.Offset(1, 0)
ActiveCell.Delete
Loop
ActiveCell.Offset(1, 0).Range("A1&quot.Select
Loop

Thanks!
Duncan

 

[Zathras]

Take a look at the Advanced Filter. There is a check box for "Unique records only"

From Excel menu: Data/Filter/Advanced Filter...

 

[duncansancho]

Thanks Zathras, I'll give it a go.
Duncan