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