Application.International


Select Case Application.International(xlApplicationInternational.xlCountryCode) 
   Case 1: Call MsgBox("English")
   Case 33: Call MsgBox("French")
   Case 49: Call MsgBox("German")
   Case 81: Call MsgBox("Japanese")
End Select



© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrevNext