erro em tempo de execução "13"

Question

Boa Noite a todos,

estou criando uma planilha de dados mas estou me deparando com esse erro 13 - erro em tempo de execução, mas não sei corrigir. Alguém pode me ajudar?

OBS:   eu busco os valores na planilha2 (Estoque2) e peço para alterar na planilha 1 (estoque )

'codigo de consulta consulta


Private Sub txt_produto_AfterUpdate()

Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim mensagem

codigo = txt_produto
Sheets("estoque2").Select
Set intervalo = Range("A2:D500")

On Error GoTo Erro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)    'numero da ordem
pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)   'placa caminhao
pesquisa3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)   'data


txt_codigo = pesquisa            'numero da ordem
txt_unidade = pesquisa1          'placa caminhao
txt_valor_unitario = pesquisa3   'data


Exit Sub
Erro:
texto = "Não foi localizado nenhum valor correspondente ao código..."
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub


'codigo para editar

Private Sub btn_atualiza_Click()

Sheets("estoque").Select
ActiveCell.Value = txt_produto
ActiveCell.Offset(0, 7).Value = txt_codigo.Value              'nota fiscal
ActiveCell.Offset(0, 8).Value = txt_unidade.Value             'placa do caminhao
ActiveCell.Offset(0, 9).Value = txt_valor_unitario.Value      'data

MsgBox "cadastro alterado com sucesso", , "Sucesso"

txt_codigo = ""
txt_produto = ""
txt_unidade = ""
txt_valor_unitario = ""

txt_produto.SetFocus


End Sub