Powerpoint Change Language to all Slides

Sub Lingo()

   ' Declare variables.
   Dim sld As Slide
   Dim shp As Shape

   ' Loop through all the slides in the presentation.
   For Each sld In ActivePresentation.Slides

       ' Loop through each shape on each slide.
       For Each shp In sld.Shapes

           ' If the Shape is a text box...
           If shp.Type = msoTextBox Or msoPlaceholder Then
           If shp.HasTextFrame Then

               ' ...then change the language to US English.
               ' NOTE: To change the language ID to another language,
               ' change the msoLanguageID value here to a
               ' different language.
               shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS

           End If
           End If
       Next
   Next

End Sub