Cómo revisar el idioma en que está Excel

Muchas de las macros que grabamos en un idioma de Excel «truenan» cuando las corremos en otro idioma. Por ejemplo: una tabla dinámica al agrupar fechas en inglés le pone el nombre «years» al año, mientras que en español le dice: «años». El problema se complica porque no es suficiente buscar una versión de inglés y otra de español, sino que hay un montón de cada una.

Aquí les paso un código que revisa si estamos en inglés o español, y si no es ninguno de los dos, muestra un mensaje de aviso.

Dim v_Idioma As String
Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
‘ Revisa si está en inglés
Case 1033, 3081, 10249, 4105, 9225, 14345, 6153, 8201, 5129, 13321, 7177, 11273, 2057, 1033, 12297
v_Idioma = «Inglés»
‘ Revisa si está en español
Case 1034, 2058, 3082, 11274, 16394, 13322, 9226, 5130, 7178, 12298, 17418, 4106, 18442, 19466, 6154, 15370, 10250, 20490, 14346, 8202
v_Idioma = «Español»
Case Else
MsgBox «Lenguaje no reconocido como inglés ni español. Puede que la macro no despliegue el año correctamente.»
v_Idioma = «Sabrá Dios cuál es el » & Application.LanguageSettings.LanguageID(msoLanguageIDUI)
End Select