This example displays the path and file name of every available add-in.
For Each a In AddIns
MsgBox a.FullName
Next a
This example displays the path and file name of the active workbook (assuming that the workbook has been saved).
MsgBox ActiveWorkbook.FullName