Type Info:
Target As String
Dim TU As TransUnit Dim TargetText As String Set TU = Application.ActiveTransUnit TargetText = TU.Target