Private Sub Listbox1_Click()
Dim rng as Range
set rng = Range(Listbox1.RowSource).Columns(1).Cells
set rng = rng(Listbox1.ListIndex + 1)
textbox1.Text = rng.Text
textbox2.Text = rng.offset(0,1).Text
textbox3.Text = rng.offset(0,2).Text
' etc

End Sub

--
Regards,
Tom Ogilvy


"peter_rivera"
wrote in message
...

Thanks, the code works to a degree...
Instead of getting information (phones numbers, addresses) from the
linked worksheet, the textboxes merely copy what is in the listbox.

How do I correct this? Thanks!


--
peter_rivera
------------------------------------------------------------------------
peter_rivera's Profile:
http://www.excelforum.com/member.php...o&userid=24495
View this thread: http://www.excelforum.com/showthread...hreadid=380885