Type Info:
ProjectFile As ProjectFile
Dim TU As TransUnit Dim ProjFile As ProjectFile Set TU = Application.ActiveTransUnit Set ProjFile = TU.ProjectFile