Workbook.FullName

Use this property to return the full name (including file path) of the workbook. This property is read only.

Syntax Parameters Return value
- - String

SVB Example

Backing up a workbook document 

Option Base 1
Option Explicit
Sub Main
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    Dim FilePath As String
    FilePath = wb.FullName
    'save a backup copy of the workbook in the
    'same directory
    wb.SaveAs(FilePath & ".bak")
End Sub