And 'tis okay ... I use the following to check language and set some
globals I for that stuff.

Sub subLangSettings()
' Set some constants dependent on Language.

sgEMsg = ""
Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
Case 1033 ' US
sgR = "R"
sgC = "C"
sgColumn = "Column"
sgRow = "Row"
sgOffset = "Offset"
sgSum = "Sum"
Case 1043 ' Dutch
sgR = "R"
sgC = "C"
sgColumn = "Kolom"
sgRow = "Rij"
sgOffset = "VERSCHUIVING"
sgSum = "Sum"
Case Else
sgEMsg = "Unknown Language setting."
End Select
'