Macro detecte al nombre de carpeta

[EricJTL]

Hola
Preciso una macro que escriba la carpeta donde se encuentra el archivo que ejecuta la macro.

 

[EricJTL]

y pegar esa informacion en una celda

 

[EricJTL]

Con esta macro logre un mensage pero no logro colocar ese mensaje en una celda

Sub ObtenerRutadelLibro()

MsgBox ("La ruta del Libro es " & ActiveWorkbook.Path)

End Sub

 

[Abraham.Valencia]

Hola, prueba así:

Range("A1") = ThisWorkBook.Path

Abraham Valencia

 

[EricJTL]

gracias funciono