Pode dar maiores detalhes, se possivel um pequeno exemplo do que tem e principalmente do que espera?

Caro Reinaldo anexei um modelo simplificado para sua compreensão. O resultado atual é que ao abrir o windows explorer com o comando shell, eu não consigo captar a pasta selecionada para utilizar no comando "Save". A varíavel "pasta selecionada" gera um valor numérico e não uma pasta-caminho. Desse modo a planilha irá gravar na pasta padrão do Excel.

Poderia até ter uma maneira diferente de fazer isto, como por exemplo solicitar do usuário que entre com o nome completo da pasta-caminho, mas não é isto que eu quero.

Abraços!

Se utilizar "Application.GetSaveAsFilename", ira abrir a janela para seleção do diretorio/pastas onde deseja salvar.
Veja no seu exemplo:
If MsgBox("Voce quer salvar este arquivo agora ?", vbYesNo) = vbYes Then
MsgBox ("Eu vou abrir o explorer para selecionar a pasta destino ! Após a seleção da pasta, clique no botão fechar")
' Let Pasta_Selecionada = Shell("c:windowsexplorer.EXE " & diretorio, vbNormalFocus)
Nome_Arq = TextBox1 & "_ARQUIVO_TESTE.xls"
fileSaveName = Application.GetSaveAsFilename(Nome_Arq, fileFilter:="xls Files (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fileSaveName
End If

Obrigado Reinaldo funcionou como eu queria. Abraços!

Boa noite!!!

Marque seu tópico como resolvido!!

Att