Type Info:
Properties As TransUnitProperties
Dim TU As TransUnit Dim Props As TransUnitProperties Set TU = Application.ActiveTransUnit Set Props = TU.Properties