txtaddr1.Text = Application.WorksheetFunction.VLookup(cboClient.Te xt, _
worksheets("ClientNames").range("Client_Name"), 2, False)



Steve Jones wrote:

I have a combobox on a userform.

I would like when user selects a Client Name from the combo box the Address
appears in txtAddr1, Addr2,Addr3 .......

I have come up with the code below but clearly I have made a mistake
somewhere.

Thanks very much in advance.

Steve

Private Sub cboClient_Change()

On Error GoTo Error

txtaddr1.Text = Application.WorksheetFunction.VLookup(cboClient.Te xt,
ClientNames!Client_Name, 2, False)

Exit Sub

Error:
txtaddr1.Text = "Error"

End Sub

--

Dave Peterson