Código:
Sub GetPath()
Range("B1").Value = ActiveWorkbook.Path
End Sub
Este código coloca la ruta del libro en la celda B1.
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.