Workbook.FullNameURLEncoded (Excel)

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

Dim strFullNameURLEncoded As String
strFullNameURLEncoded = ActiveWorkbook.FullNameURLEncoded