CASE FORMAT(xlApp.LanguageSettings.LanguageID(2)) OF '1049': BEGIN //Русский язык END; '1033': BEGIN // Английский язык END; END;