Type Info:
Parent As SubFiles
Dim SubFile As SubFile Dim SubFiles As SubFiles Set SubFile = Application.ActiveProjectFile.SubFiles(1) Set SubFiles = SubFile.Parent