Remove Listbox Item based on value

[jaekma]

Hi I have this code:

Private Sub removeModel()
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i) <> "Model" Then
            ListBox1.RemoveItem i
    End If
Next
End Sub

it does the exact opposite of what I want. I would like everything to remain but the item named "model"

Can someone help me modify this? I cant get it to work right. Thanks in advance!!

 

[Norie]

Change <> to =.

 

[jaekma]

Change <> to =.

perfect! thank you. It's always something so simple. I'm gonna get it eventually!
Thanks again!

 

[Norie]

No problem.

By the way, there's an alternative you might want to try.

Dim Res As Variant

    ' find position of 'Model' in listbox items
    Res = Application.Match("Model", ListBox1.List, 0)
    
    If Not IsError(Res) Then
        ListBox1.RemoveItem Res - 1 ' subtract 1 because the index of is zero-based.
    End If