And if they are listboxes as you said (rather than textboxes) you would
adjust the code to:


Code:
--------------------

Sub Listbox1_Click()

Dim r as Range
Dim strFind as String
Dim sh as Worksheet
set sh = Worksheets("Data")
strFind = Lcase(ListBox1.Text)

For Each r in Sh.Range("A1:A" & sh.Range("A65535").End(xlUp).Row)
If lcase(r.Value) = strFind Then
ListBox2.AddItem sh.Range("F" & r.Row).Value
ListBox3.AddItem sh.Range("G" & r.Row).Value
End If
Next

End Sub
--------------------


--
Regards,
Tom Ogilvy