Type Info:
TargetLanguage As String
Dim SubFile As SubFile Dim TargetLang As String Set SubFile = Application.ActiveProjectFile.SubFiles(1) TargetLang = SubFile.TargetLanguage