Thank you Tom,

but under what Private sub should i call this feature?
i usualy try _afterupdate()
also where would this usualy be best placed?
i would think textbox2_afterupdate looking at the
procedure!

Thank you,

Robert Couchman

-----Original Message-----
Listbox1.Clear
With worksheets("Data")
set rng = .Range(.Cells(2,5),.Cells(2,5).End(xldown))
End with
for each cell in rng
if instr(1,cell,Textbox2.Text,vbTextCompare) then
listbox1.AddItem cell.Value
end if
Next


--
Regards,
Tom Ogilvy