'VBA function to retrieve this workbook's full path:
Function FullPath()
With ThisWorkbook
FullPath = .Path & Application.PathSeparator & .FullName
End With
End Function
'--------------------------------------------------------------------
MsgBox FullPath