Workbook.FullName (Excel)

Retorna o nome do objeto, incluindo seu caminho no disco, na forma de uma cadeia de caracteres. String somente leitura.

Dim strFullName As String
strFullName = ActiveWorkbook.FullName