Workbook.FullName (Excel)

Returns the name of the object, including its path on disk, as a string.

Dim strFullName As String
strFullName = ActiveWorkbook.FullName