Type Info:
ParentNode As Long
Dim TU As TransUnit Dim ParentNodeNumber As Long Set TU = Application.ActiveTransUnit ParentNodeNumber = TU.ParentNode