Hi David,

Assuming your list of product codes and descriptions is located in range
A1:B5 on Sheet1, the following code should do what you want:

Private Sub ListBox1_Change()
TextBox1.Text = Application.VLookup(ListBox1.Text, _
Sheet1.Range("A1:B5"), 2, False)
End Sub

Note that if your product codes are numeric, you'll need to cast the
ListBox.Text value into a numeric value using something like CLng().

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"David Goodall" wrote in message
...
Hi All,

I have a worksheet that contains product codes (column A) and product
descriptions (column B).

I designed a userform which includes a list box which has all the product
codes in it. I used the rowsource property to populate it. I would like a
text box on the userform automatically completed when the product code is
chosen in the list box. Is this possible?

I have some programming experience but only in C++. I'm new too VB so
forgive me if this is a silly question.

Thanks
David