Olá pessoal, tenho um UserForm1 que possui um Textbox1 que usa a função DblClick que abre outro UserForm2 de pesquisa com ListView que possui a lista com os códigos e descrições dos materiais, onde selecione o item desejado usando ListView DblClick passando o código do material para o TextBox1 UserForm1 até ai tudo bem, porem coloquei uma macro que quando passar para o próximo campo de preenchimento dando Enter ou Tab aparece-se no TextBox2 a descrição do material correspondente ao código do TextBox1, utilizei a macro abaixo, mas não esta funcionando.

Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem

codigo = TextBox1.Text
Sheets("Estoque").Select
Set intervalo = Range("A2:E200")

On Error GoTo trataErro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)


TextBox2.Text = pesquisa 'Descrição do material
TextBox3.Text = pesq1 'Unidade
TextBox1.SetFocus

Exit Sub
trataErro:
   texto = "Produto não localizado!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub

silvajmp