Function RemoveCheckedItems(oLB As ListBox) As Long
RemoveCheckedItems = 0
Dim i As Integer
With oLB
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then
.RemoveItem i
RemoveCheckedItems = RemoveCheckedItems + 1
End If
Next i
End With
End Function