This thread is for discussions of Remove the selected items in a ListBox.

you forgot to add    "Dim a as integer"   otherwise the code wont work

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