Listbox List All Found Items Only

[Jaye7]

Hi, I would like a script which will put all found search items in a listbox.

Basically I search for whatever value I type in textbox1 and I want listbox1 to return all the results.

my search code is:

Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

I guess it would need to be adapted as a findall script and then the listbox lists all the found references/ values.

The findall script would lookup all values in column A only.

Thanks

 

[Jaye7]

Can anyone please help.