VB - Remove duplicates from ListBoxes

[joltremari]

Public Sub RemoveDups(ListName As ListBox)
 
'REMOVE DUPLICATES
 
    With ListName    
        For i = 0 To .ListCount - 1
            For j = .ListCount To (i + 1) Step -1
            
                If .List(j) = .List(i) Then                    
                    .RemoveItem j
                End If
               
            Next
        Next
    End With
 
End Sub 
 
 
 
'USAGE
 
RemoveDups List1