Bom dia,
Tenho um codigo em que quero ao colocar informação em um testbox em especifico o mesmo ja preencha os demais textbox com os dados existente na planilha, porem esses dados são obitidos de uma outra planilha fechada, o que ocorre é que quando eu referencio o arquivo externo não consigo executar o codigo pois apresenta erro
Erro em tempo de execução 9 subscrito fora do intervalo
Abaixo o codigo
Private Sub txtTemplate_AfterUpdate()

Dim Intervalo As Range
Dim texto As String
Dim codigo
Dim pesquisa
Dim mensagem
Dim extern

codigo = txtTemplate

'Workbooks ("Ticket_Templates.xls")
'Sheets("Dados").Select
'Set Intervalo = Range("a1:j1200")

With Workbooks("Ticket_Templatess.xls").Worksheets("Dados")

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 2, False)
txtDescricao = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 3, False)
txtPortugues = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 4, False)
txtIngles = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 5, False)
txtEspanhol = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 6, False)
txtFila = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 7, False)
txtSeveridade = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 8, False)
txtCY = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 9, False)
txtCYType = pesquisa

pesquisa = Application.WorksheetFunction.VLookup(codigo, Intervalo, 10, False)
txtDica = pesquisa

End Sub
End With

Aguém poderia me informar onde estou errando?