Type Info:
Count As Long
Dim Langs As ProjectLanguages Dim NumberOfLanguages As Long Set Langs = Application.ActiveProject.ProjectLanguages NumberOfLanguages = Langs.Count