Type Info:
Name As String
Dim Projs As TranslationProjects Dim Proj As TranslationProject Set Projs = Application.Workspace.TranslationProjects Set Proj = Projs.Item(1) MsgBox Proj.Name