expression.DictLang
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets the Excel dictionary to use the English (United States) language.
Sub LanguageSpellCheck()
With Application.SpellingOptions
.DictLang = 1033 ' United States English language number.
.UserDict = "CUSTOM.DIC"
End With
End Sub