# loop through listbox and delete items

excel vba
listbox on a userform:

I need to delete all the items in the listbox that do not have the following codes in column 13
WG
WV
DG
DV
and also any nulls in column 13.

current code to delete items with a code of :
DG
DV
WG
WV

Dim i As Long
With Me.ListBox1
For i =  .ListCount - 1 To 0 Step -1
If .List(i, 13) = "DG" Or .List(i, 13) = "WD" Or .List(i, 13) = "DV" Or .List(i, 13) = "WV" Or .List(i, 13) = "WG" Then
.RemoveItem i
End If
Next
End With

I think it would be this but need to delete nulls also:

Dim i As Long
With Me.ListBox1
For i =  .ListCount - 1 To 0 Step -1
If .List(i, 13) <> "DG" Or .List(i, 13) <> "WD" Or .List(i, 13) <> "DV" Or .List(i, 13) <> "WV" Or .List(i, 13) <> "WG" Then
.RemoveItem i
End If
Next
End With

Thanks
fordraiders
LVL 3
###### Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Analyst Assistant Commented:
Perhaps.
``````Dim i As Long
With Me.ListBox1
For i =  .ListCount - 1 To 0 Step -1
If .List(i, 13) <> "DG" Or .List(i, 13) <> "WD" Or .List(i, 13) <> "DV" Or .List(i, 13) <> "WV" Or .List(i, 13) <> "WG" Or .List(i,13) = "" Then
.RemoveItem i
End If
Next
End With
``````
0

Experts Exchange Solution brought to you by