'VBA function to retrieve this workbook's full path:

Function FullPath()
    With ThisWorkbook
        FullPath = .Path & Application.PathSeparator & .FullName
    End With
End Function

'--------------------------------------------------------------------

MsgBox FullPath