Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel        Dicas 


Pergunta:

Como fazer com que a célula A1 apresente o meu diretório ?

Resposta:
É possível, escrever :

NomeAnterior = "C:"
NomeAtual = "C:"
Name NomeAnterior As NomeAtual    'Move o arquivo e Renomeia

Respondendo sua questão :

Teste_Path( )
x = CurDir("C")
Cells(1, 1).Value = x 'retornará C:
MsgBox x, vbExclamation,"www.saberexcel.com"
End Sub