Type Info:
Count As Long
Dim TUProps As TransUnitProperties Dim NumberOfProperties As Long Set TUProps = Application.ActiveTransUnit.Properties NumberOfProperties = TUProps.Count