Type Info:
Parent As TransUnits
Dim TU As TransUnit Dim TUs As TransUnits Set TU = Application.ActiveTransUnit Set TUs = TU.Parent