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