Type Info:
EditorName As String
Dim TU As TransUnit Dim Editor As String Set TU = Application.ActiveTransUnit Editor = TU.EditorName