Type Info:
Count As Long
Dim Proj As TranslationProject Dim NumberOfFiles As Long Set Proj = Application.ActiveProject NumberOfFiles = Proj.ProjectFiles.Count