Used Xl Turkish English ..... Or What? Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub Test() Dim MyLang As Long MyLang = Application.LanguageSettings.LanguageID(msoLanguageIDInstall) MsgBox GetLang(MyLang) End Sub ' Function GetLang(ID As Long) As String Select Case ID Case msoLanguageIDEnglishUS GetLang = "XL - Ingilizce" Case msoLanguageIDTurkish GetLang = "XL - Turkce" Case msoLanguageIDRussian GetLang = "XL - Rusca" Case msoLanguageIDFrench GetLang = "XL - Fransizca" Case msoLanguageIDDutch GetLang = "XL - Almanca" Case msoLanguageIDSpanish GetLang = "XL - Ispanyolca" Case msoLanguageIDItalian GetLang = "XL - Italyanca" Case Else GetLang = "XL - Belirsiz" End Select End Function Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 used xl turkish english ..... or what? 2 Determining the Excel Version Language 3 excel operators hk 4 calculator on / off 5 status bar macro with a message waiting 6 selection of filled fields and finding the last filled cell 7 new book opens 8 adding two lines and removing total 9 Select the most recent cell 10 English and Turkish menus 11 last used cell 2 in workbook 12 watermark printing (faded font on sheet / page background) 13 cell-related codes 14 deleting the menu bar and creating a custom menu 15 Find the previous full cell from an empty cell 16 Detecting and selecting rows with single row numbers 17 Separates the same ones in column a as sheet / page space 18 button protection 19 Column a separates the same value as the print area 20 counts how many formulas exist on the sheet / page