ecks,

Altere em sua rotina, a linha que recebe o nome do arquivo, e adicione a ela, antes do nome do arquivo TXT, a instrução ThisWorkBook.Path & "PastaOuNomeArquivo.txt".

Assim, você estará sempre apontando para o local da planilha, e definindo isso como caminho padrão.

Abs

Não consegui inserir este código na roteiro da macro..
O código original está assim..

    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;G:PLANILHA_CONTROLE_DE_ATIVOS_CEVSVDVR0005.TXT", Destination:=Range( _
        "$A$1"))
        .Name = "VDVR0005"

agradeço a atenção!

ecks

Boa tarde!

Creio que assim dará certo. Não testei...

    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & ActiveWorkbook.Path & "VDVR0005.TXT", Destination:=Range( _
        "$A$1"))
        .Name = "VDVR0005"