Type Info:
Count As Long
Dim SubFiles As SubFiles Dim NumberOfSubFiles As Long Set SubFiles = Application.ActiveProjectFile.SubFiles NumberOfSubFiles = SubFiles.Count