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