Excel - Como Extraer nombres de una lista.

Hola Foro,

Dispongo de una lista de nombres en: Range("N2:N1000") de los cuales quiero extraer una nueva lista sin duplicados en Range("AA" & i).

He probado con dos bucles for, anidados, pero no consigo descartar todos los duplicados. Tambien he utilizado la opcion del filtro avanzado, pero no me sirve. (No puedo nombrar rangos en la hoja).

Function CompCol()

Dim w, t As Integer
Dim ObjVal As Variant

t = Range("T2").Value 'Numero de lineas con datos en Rango N
w = Range("W5").Value 'Numero de lineas con datos en rango AA

For r1 = 2 To t
ObjVal = Range("N" & r1).Value

For r2 = 2 To w
If ObjVal = Range("AA" & r2).Value Then
Exit For
Else
Range("AA" & r2).Value = Range("N" & r1).Value

End If
Next r2
Next r1

End Function

agradecere cualquier ayuda.

Una funcion (Function) para eso¿?¿?¿? Deberia haber echo una rutina (Sub), pero en realidad con filtros avanzados de registro unico lo podias hacer, o con una tabla dinamica tambien, en todo caso, busca por aca:

http://www.mailxmail.com/curso/informatica/macros/capitulo6.htm

Abraham