A fórmula a seguir extrairá o nome de usuário de um caminho de diretório na célula A1 que é o diretório do usuário (C: \ Users \ nome_do_usuário) ou um subdiretório dele.
=MID(A1,FIND("\",A1,4)+1,FIND("\",A1,FIND("\",A1,4)+1)-FIND("\",A1,4)-1)
A fórmula encontra o segundo "\" iniciando sua pesquisa na 4ª posição (porque o primeiro "\" geralmente está na 3ª posição).
Lembre-se de que a pasta de trabalho pode estar em um diretório que não faz parte do diretório do usuário (por exemplo, em "D: \ Docs").
Se você quiser simplesmente obter o nome do usuário atual, poderá fazer isso no VBA usando Environ$("UserName")
. Por exemplo, crie uma função definida pelo usuário como essa (de link )
Public Function UserName()
UserName = Environ$("UserName")
End Function