Makro for changing the language in all power point slides

ChangeSpellChecking.vb

Option Explicit
Public Sub ChangeSpellCheckingLanguage()
    Dim j As Integer, k As Integer, m As Integer, scount As Integer, fcount As Integer, ncount As Integer
    scount = ActivePresentation.Slides.Count
    For j = 1 To scount
        If ActivePresentation.Slides(j).HasNotesPage Then
            ncount = ActivePresentation.Slides(j).NotesPage.Shapes.Count
            For m = 1 To ncount
                If ActivePresentation.Slides(j).NotesPage.Shapes(m).HasTextFrame Then
                    ActivePresentation.Slides(j).NotesPage.Shapes(m).TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUK
                End If
            Next m
        End If
        fcount = ActivePresentation.Slides(j).Shapes.Count
        For k = 1 To fcount
            If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
                ActivePresentation.Slides(j).Shapes(k) _
                .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUK
            End If
        Next k
    Next j
End Sub