macro for language change- microsoft word

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.LanguageID = wdEnglishUS
    Selection.NoProofing = False
    Application.CheckLanguage = True
End Sub