VBA runtime error 5 with get Language

[amarokWPcom]

Dear Freidns,

I want to get the language code of the running Excel of the user.

So I put this code:

Sub scheisstest()

Dim LNG_USERLANGUAGE As Long

LNG_USERLANGUAGE = Application.LanguageSettings.LanguageID(msoLanguageIDUI)

'Worksheets("UI").Cells(45, 1).Value = LNG_USERLANGUAGE



End Sub

But after running the system answers with runtime error 5

Does anyone has an idea? I am running Excel 2013

Many thanks in advance.

 

[ParamRay]

My guess is you're missing a reference to the Microsoft office object library.

Try one of these options...

Either:

(1) Add this line at the beginning of the sub routine: Const msoLanguageIDUI = 2

Or:

(2) Add a reference to the Microsoft office object library via Tools --> References in the VB editor.

 

[amarokWPcom]

Many thanks

(1) solved it