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