Dim i As Integer, j As Integer
With List1
    For i = 0 To .ListCount - 1
        For j = .ListCount - 1 To i + 1 Step -1
            If .List(j) = .List(i) Then
                List1.RemoveItem j
            End If
        Next j
    Next i
End With