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