Cargar Listbox Sin Duplicados, y al darle click a los registros que me muestre el resultado de otra columna en otro Listbox

Esto requiere de más conocimientos y código VBA. Le dejo este ejemplo, consta de un formulario y 2 cuadros de lista. Al cargar utilizo los meses del año para no improvisar con tablas.

Ahora hago clic en los meses de julio y octubre

Ahora hago clic en los meses enero y abril.

CODIGO DEL EVENTO AL ABRIR DEL FORMULARIO

Private Sub Form_Open(Cancel As Integer)
 Dim i As Integer
 For i = 1 To 12 Step 1
    List1.AddItem MonthName(i)
 Next i
End Sub

CODIGO DEL EVENTO AL HACER CLIC EN EL CUADRO DE LISTA 1

Private Sub List1_Click()
       Dim i As Integer, c As Integer
     Me.List2.RowSource = ""
    'Estas lineas si llama el procedimiento desde un botón
     If List1.ListCount = 0 Then
        MsgBox "No hay items seleccionados."
        Exit Sub
    End If
    c = 0
    For i = 0 To List1.ListCount - 1 Step 1
        If List1.Selected(i) = True Then
            c = 1
            Exit For
        End If
    Next i
    If c = 0 Then
        MsgBox "Seleccione algún item de la lista." 'Esta línea si llama el procedimiento desde un botón
        List1.SetFocus
        Exit Sub
    ElseIf c = 1 Then
        For i = 0 To List1.ListCount - 1 Step 1
            If List1.Selected(i) = True Then
                List2.AddItem List1.ItemData(i)
            End If
        Next i
    End If
End Sub