Last Item in ListBox Causes All Item to be Removed

[sdday81]

For some reason the code below will end up deleting every item in the listbox when you select the last item in the list. If I select any other item besides the last item in the list it will only delete that selected item.

Private Sub DeleteIngredientButton_Click()

    Dim Index As Integer
    
    'Delete the selected items from the list of ingredients
    For Index = IngredientList.ListCount - 1 To 0 Step -1
        If IngredientList.Selected(Index) Then
             IngredientList.RemoveItem (Index)
        End If
    Next Index
    
End Sub

 

[sericom]

Add

IngredientList.ListIndex = -1

after your line

IngredientList.RemoveItem (Index)