Type Info:
ActiveTargetLanguage As String
Dim Lang As ProjectLanguage Dim LangCode As String LangCode = Application.ActiveProject.ProjectLanguages.ActiveTargetLanguage