JPerez,

Bom dia!

Não sei como está o seu comando de salvar, porém, basta substituir o caminho que é mencionado no comando por:

ActiveWorkbook.Parh & "Nome_do_Seu_Arquivo.xlsm"

Wagner MIL e UM PERDÕES!!!

Esqueci de comentar e ao mesmo tempo pensei num porem:
O arquivo sera enviado por e-mail.
Ele deverá ler aonde a pessoa salvou (ja que o mesmo diretório esta mapeado com uma letra) e enviaria o anexo.

Eu tinha feito a rotina que ele ao clicar enviar e-mail, ele salvaria COMO no diretório X na pasta Y.
ele buscava o arquivo, anexando e enviando e-mail.
Mais como cada maquina tem uma letra nesse diretorio.. quebra minhas pernas
el

Boa tarde, JPerez

Vc poderia usar o caminho completo conforme a nomenclatura UNC ao invés de usar caminho de unidade mapeada.

Exemplo de sintaxe de um caminho UNC:

\NOME_DO_SERVIDORNOME_DO_COMPARTILHAMENTOPASTANOME_DO_ARQUIVO

No Excel em seu caso ficaria algo como:

ThisWorkbook.SaveAs "\SERVIDORPastasCompartilhadasMinhaSubPastaTeste.xlsm",xlOpenXMLWorkbookMacroEnabled

EdsonBR

PERFEITO....... Juro que não me lembrava disso! abraços! e OBRIGADO!