Hola Miguel:
Si lo tienes abierto, es tan sencillo como presionar F12. Así abres el cuadro de diálogo Guardar como, donde te indica la carpeta y ruta del archivo.
Si
necesitas hacerlo con vba, puedes usar la propiedad Path.
Sub ObtenerRutadelLibro()
MsgBox ("La ruta del Libro es " & ActiveWorkbook.Path)
End Sub
Como puedes ver, es más fácil presionar F12 que crear un nuevo módulo.
https://wordexperto.com/