Workbook.Path (Excel)

Returns a String that represents the complete path to the workbook/file that this workbook object represents.

Dim strPath As String
strPath = ActiveWorkbook.Path