ListBox zawierający tylko elementy unikalne

J. Walkenbach w 'Programowaniu excela' przedstawia sprytne rozwiązanie na uniknięcie powtarzanych wpisów do ListBoxa wykorzystując obiekt Collection oraz argument Key instrukcji Add dodającej elementy do kolekcji.

Sub UsunDuplikaty()

Dim WszystkieKOm As Range, Komórka As Range, myrange As Range
Dim BezPowtórzeń As New Collection
   

    Set myrange = Range("A1:A100")

    On Error Resume Next

    For Each Komórka In myrange
        BezPowtórzeń.Add Komórka.Value, CStr(Komórka.Value)
    Next Komórka

    On Error GoTo 0
    'dodaje unikalne lementy do listboxa
   

    For Each element In BezPowtórzeń
        UserForm1.ListBox1.AddItem element
    Next element

    UserForm1.Show

End Sub

---