Just do: Call ListBoxRemSel List1
replace List1 with the name of your listbox..
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
Comments