Excel - Rellenar cuadro combinado

Hola,
Tengo un formulario en el cual tengo un cuadro combinado (combobox).
Deseo rellenarlo con los datos de una columna cuyo encabezado es DISTANCE y como hay datos que se repiten deseo que me rellene el cuadro combinado solo con datos que no se repitan.
Para ello en el evento inizilize tengo un procedimiento que me debería de rellenar el cuadro combinado pero que no funciona.
Aqui os dejo el procedimiento para ver si podeis ayudarme.

Private Sub UserForm_Initialize()
On Error Resume Next
Dim AllCells As Range, Cell As Range, NoDupes As New Collection, Num As Long, Nc As Long
Sheets("PROMETEO").Activate
For Each Cell In Range("DISTANCE")
NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
For Each Item In NoDupes
SAISIE.DISTANCE.AddItem Item
Next Item
MsgBox NoDupes.Count
Nc = NoDupes.Count
For Num = 1 To Nc
NoDupes.Remove 1 ' Quita el primer objeto en cada bucle,hasta que no quedan objetos en la colección.
Next Num
'***************************Allocation
'For Each Cell In Range("ALLOCATION")
' NoDupes.Add Cell.Value, CStr(Cell.Value)
'Next Cell
'On Error GoTo 0
'For Each Item In NoDupes
' SAISIE.ALLOCATION.AddItem Item
'Next Item
'MsgBox NoDupes.Count
'Nc = NoDupes.Count
'For Num = 1 To Nc
' NoDupes.Remove 1 ' Quita el primer objeto en cada bucle,hasta que no quedan objetos en la colección.
'Next Num
'***************************Hippodrome
'For Each Cell In Range("HIPPODROME")
' NoDupes.Add Cell.Value, CStr(Cell.Value)
'Next Cell
'On Error GoTo 0
'For Each Item In NoDupes
' SAISIE.HIPPODROME.AddItem Item
'Next Item


End Sub

Saludos
José

probá con

For i = 1 To NoDupes.Count
SAISIE.DISTANCE.AddItem NoDupes.Item(i)
Next

si no funciona deberías publicar el archivo...

Saludos, desde Baires, JuanC

Hola! José (y Juan Carlos). Suponiendo que:

- Los datos que quieres considerar se encuentren en el rango A1:A20 de la hoja Hoja1 del libro activo,

- Y que en la celda A1 tienes el título de esa columna,

entonces el siguiente código cargará datos únicos en el ComboBox1 del UserForm1: ¡Espero te sirva!

Saludos, Cacho R.

Hola,
gracias por la respuesta.
Me ha serviceo para hacer lo que quería.
Saludos
José