Could not get list property,Invalid argument (ListBox )

Topic

New Reply

Hi Guys..,

I have a problem. when I’m click search button , I’m getting error (Could not get list property,Invalid argument)

zSearchFor = “*” & TextBox13.Value & “*”
zSearchFor = UCase(zSearchFor)

For r = 2 To zLastRow
zCell = ws.Cells(r, zCol)
If UCase(zCell) Like zSearchFor Then
ListBox4.AddItem
ListBox4.List(s, 0) = ws.Cells(r, “A”)
ListBox4.List(s, 1) = ws.Cells(r, “B”)
ListBox4.List(s, 2) = ws.Cells(r, “C”)
ListBox4.List(s, 3) = ws.Cells(r, “D”)
ListBox4.List(s, 4) = ws.Cells(r, “E”)
ListBox4.List(s, 5) = ws.Cells(r, “F”)
ListBox4.List(s, 6) = ws.Cells(r, “G”)
ListBox4.List(s, 7) = ws.Cells(r, “H”)
ListBox4.List(s, 8) = ws.Cells(r, “I”)
ListBox4.List(s, 9) = ws.Cells(r, “J”)
ListBox4.List(s, 10) = ws.Cells(r, “K”) (stopped here)
s = s + 1 ‘increment list counter
End If ‘end of pattern match test
Next ‘process next record

(see the attachment )

Reply | Quote