Excel Procv entre arquivo dentro de uma pasta com link fixo

[samuk2008]

Boa Noite, tudo bem?

 

Estou tentando criar um procv via vba, são dois arquivos Arquivo1 procura o valor de quantidade no Arquivo2, entretanto não gostaria que o link entre as duas planilhas fosse através do "C:\.." e sim dentro de uma pasta que eu pudesse enviar-la para alguém sem ter que mexer no caminho entre elas.   

 

Pode me ajudar?

adicionado 8 minutos depois

6 minutos atrás, samuk2008 disse:

Boa Noite, tudo bem?

 

Estou tentando criar um procv via vba, são dois arquivos Arquivo1 procura o valor de quantidade no Arquivo2, entretanto não gostaria que o link entre as duas planilhas fosse através do "C:\.." e sim dentro de uma pasta que eu pudesse enviar-la para alguém sem ter que mexer no caminho entre elas.   

 

Pode me ajudar?

 

Este é o código, mas está apresentando erro

 

Sub Procurar()
 
    ultLinha = Cells(Cells.Rows.Count, 1).End(xlUp).Row
    Dim codigo_produto As Integer
 
    
    For inicio = 2 To ultLinha
        
        codigo_produto = Cells(inicio, 1).Value
 
        resultado_procv = Application.VLookup(codigo_produto, Workbooks("Arquivo2.xlsx").Sheets("Planilha2").Range("A:B"), 2, False)
        If IsError(resultado_procv) Then
            Cells(inicio, 3).Value = "valor não encontrado"
        Else
            Cells(inicio, 3).Value = resultado_procv
        End If
        Next inicio
 
End Sub

adicionado 59 minutos depois

O código só funciona se estiver os dois arquivos abertos, é possível apenas o arquivo principal está aberto (arquivo1)??

[samuk2008]

Quando o Arquivo2 está fechado apresenta o erro "Erro em tempo de execução'9': Subscrito fora do intervalo"