removing multiple list items

[spinkung]

Hey all,

i'm trying to remove some items from a multi-select listbox (value list) using the follwing....

Set lstBox = Me.lst_To_Address

For Each varItem In lstBox.ItemsSelected
    lstItem = lstBox.Column(0, varItem)
    lstBox.RemoveItem (lstItem)
Next varItem

...however, it only remove the first selected item then exits the loop. Can anyone see why??


Thanks, spin.

 

[DCrake]

When you use RemoveItem n = index in your code you are referring to the contents. you should be using

.RemoveItem(varItem)

 

[spinkung]

thanks for the reply.


im now using...

Set lstBox = Me.lst_To_Address

For Each varItem In lstBox.ItemsSelected
    lstBox.RemoveItem (varItem)
Next varItem

..but still having the same problem??