Workbook.FullName (Excel)

Devuelve el nombre del objeto, incluida su ruta de acceso en el disco, en forma de cadena. String de solo lectura.

Dim strFullName As String
strFullName = ActiveWorkbook.FullName