Bom dia
Tenho um formulario que realiza a pesquisa em uma planilha com o nome base
O código esta funcionando perfeitamente com a planilha sendo exibida, localiza o produto e retorna as informações
Porem quando oculto a planilha base o código não funciona!
O código é esse abaixo

Private Sub txtplu_AfterUpdate()
'declaracao das variaveis
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem

'campo PLU definido como texto
codigo = txtplu.Text
'planilha que vou pesquisar
Sheets("base").Select
'intervalo de pesquisa
Set intervalo = Range("A:E")

On Error GoTo trataErro

'declaracao das pesquisas e intervalos utilizados
pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
pesq4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)

'retorno dos dados
txtdescricao.Text = pesquisa
txtfornecedor.Text = pesq1
txtembcompra.Text = pesq2
txtshelf.Text = pesq3

txtplu.SetFocus

Exit Sub

trataErro:
   texto = "Produto não localizado!"
   mensagem = MsgBox("PRODUTO NAO LOCALIZADO", vbCritical, ":: PRODUTO NÃO LOCALIZADO ::")
   

End Sub

Como posso trabalhar com a planilha oculta e mesmo assim o codigo funcionar corretamente?