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