Type Info:
SourceFileExist As Boolean
Dim ProjFile As ProjectFile Dim Exist As Boolean Set ProjFile = Application.ActiveProjectFile Exist = ProjFile.SourceFileExist