hvad sprog

hvis teksterne på menulinien er danske, er den dansk.

Public Sub test()
MsgBox "The following locale IDs are registered " & _
"for this application: Install Language - " & _
    Application.LanguageSettings.LanguageID(msoLanguageIDInstall) & _
    " User Interface Language - " & _
    Application.LanguageSettings.LanguageID(msoLanguageIDUI) & _
    " Help Language - " & _
    Application.LanguageSettings.LanguageID(msoLanguageIDHelp)
   
    If Application.LanguageSettings. _
    LanguagePreferredForEditing(msoLanguageIDDanish) Then
    MsgBox "Dansk er et af de valgte editering sprog."
End If
If Application.LanguageSettings. _
    LanguagePreferredForEditing(msoLanguageIDEnglishUS) Then
    MsgBox "U.S. English is one of the chosen editing languagess."
End If

   
End Sub

Fik det ikke til at virke
lukker

lukker