PowerPoint Reapply Notes Master to all Slides

Sub ApplyMasterToNotes()
 ' Modified version of code originally posted to
' msnews.microsoft.com public newsgroups by
' David Foster in May of 1999
     Dim ctl As CommandBarControl
    Dim oSl As Slide
     ' 700 is the control ID for Layout
    Set ctl = CommandBars.FindControl(Id:=700)
    ActiveWindow.ViewType = ppViewNotesPage
     If (ctl Is Nothing) Then
        MsgBox "command not available"
        Exit Sub
    End If
     For Each oSl In ActivePresentation.Slides
         ' go to the current slide
        ActiveWindow.View.GotoSlide (oSl.SlideIndex)
        DoEvents
         ' Bring up the dialog
        ctl.Execute
        DoEvents
         ' send it the needed keystrokes
        SendKeys "%r{enter}"
        DoEvents
     Next
 End Sub