Type Info:
Count As Long
Dim Projs As TranslationProjects Dim NumberOfProjects As Long Set Projs = Application.Workspace.TranslationProjects NumberOfProjects = Projs.Count