Type Info:
SourceFileName As String
Dim ProjFile As ProjectFile Set ProjFile = Application.ActiveProjectFile MsgBox ProjFile.SourceFileName