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