Remove Item Fires Click Event

[St Jimmy]

I would like to remove an item from a ListBox in VBA by simply clicking the list item.
I have an event that handles this on click, but when I call the .RemoveItem method it automatically fires the click event again.

Private Sub RequestedList_Click()
    RequestedList.RemoveItem RequestedList.ListIndex
End Sub

I have tried to set Application.EnableEvents = False but it didn't work (because I was in a form?)

Any ideas?

Thank you!

 

[Domenic]

First, declare the following module-level Boolean variable (declare it at the very top of your UserForm code module)...

Dim m_locked As Boolean

Then amend your existing code as follows...

Private Sub RequestedList_Click()

    If m_locked = True Then Exit Sub
 
    m_locked = True
    RequestedList.RemoveItem RequestedList.ListIndex
    m_locked = False
 
End Sub

Note, though, when you click on an item that has focus, the click event does not get triggered. Maybe the DblClick event would be better?


Hope this helps!

 

[St Jimmy]

Thank you Domenic,

I changed to double-click and that worked out nicely!

Thank you for your help!
Kyle