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