ComboBox - remove multiple selected items

'To delete multiple selected items, loop backwards To avoid problems
Dim iCount As Long
For iCount = List1.ListCount - 1 To 0 Step - 1
    If List1.Selected(iCount) = True Then List1.RemoveItem iCount
Next iCount