Как удалить выбранные элементы в ListBox

Следующий пример показывает, как удалить все выбранные элементы из listbox.

Просто вызовите: Call ListBoxRemSel List1

замените List1 на имя Вашего листбокса.

Sub ListBoxRemSel(lst As ListBox)
    Do Until lst.SelCount = 0
        If lst.Selected(a) Then lst.RemoveItem a: a = a - 1
        a = a + 1
    Loop
End Sub