Userform: Double click to remove selected removes all items.

Hi All,

I have a userform where after a listbox is populated the user can double-click on an item to remove it from the list. Most of the time this works as desired. However, when the user double-clicks on a blank space or on the last item in the list all items are removed. Below is my code for the double-click event. Does anybody have a modification to the code so that it will not remove all items when the last item, or a blank, is double-clicked?

Please Login or Register  to view this content.

Thanks in advance!




--------------------------------------------
Insightful tag-line here.

By the way, when the list is set to Single, if you delete the selected item VBA will cause another item to be selected. If your selected item is the last item and you delete it, then VBA will select the now-last item. That's why your loop deletes every item when you double-click the last one. If the item is not the last one, then the item in the same position in the list will be selected.

6StringJazzer,
Thanks for the solution! That worked perfectly. When blank is clicked it defaults to selecting the last item, so both issues were generated by the same root cause. Again, Thanks!