Type Info:
ActiveProjectFile As ProjectFile
Dim App As Application Dim ProjFile As ProjectFile Set App = Application Set ProjFile = App.ActiveProjectFile