Abrir arquivo 1

O código abaixo é simples e ainda faz uma verificação antes se o arquivo realmente existe.
Para ver o código funcionando basta copiá-lo e substituir o texto (azul) conforme é pedido.

‘grava em uma variável dados sobre o arquivo
retval = Dir(“caminho e nome do arquivo com a extensão“)

‘verifica se o endereço informado coincide com o que foi gravado na variável
If retval = “informe aqui nome do arquivo com extensão“ Then

ChDir “nome do caminho“
Workbooks.Open Filename:= _
“informe aqui caminho e nome do arquivo com a extensão” _
, ReadOnly:=false, Notify:=False, IgnoreReadOnlyRecommended:=True

end if

_________________
Veja também: Abrindo planilha 2
_________ Selecionar Planilha