pasta = ThisWorkbook.Path
Workbooks.Open Filename:=pasta & "/Plan1.xls"

Olá Edson!

Apareceu:

Erro de compilação:

Variavel não definida

Inclua nas declarações:

Dim pasta As String

Perfeito!

Brigadão

T+

Resolvido

olá pessoal desculpa voltar um topico resolvido mas a duvida agora tem relação com a do topico se acharem melho posso abrir outro.
seguindo a mesma logica com faço para salvar como no mesmo diretorio com um nome vindo da um range da planilha?

SAlva no formato Excel 2003 (.xls)

O nome do arquivo estará na célula A1 da planilha Plan1 ... ou altere abaixo, conforme sua necessidade.

Sub SalvarComo()
    Dim Pasta As String
    
    Pasta = ThisWorkbook.Path
    ThisWorkbook.SaveAs Filename:=Pasta & "" & Worksheets("Plan1").Range("A1") & ".xls", FileFormat:=XlFileFormat.xlExcel8
End Sub

VLW!!!