Type Info:
Approved As Boolean
Dim TU As TransUnit Dim approved As Boolean Set TU = Application.ActiveTransUnit approved = TU.Approved