TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub SensiblyApplyMasters()
    With ActiveWindow.Selection.SlideRange
       ' assuming you have a design named "Bob" ...
       .Design = ActivePresentation.Designs("Bob")
    End With
End Sub

If you don't know the name of the designs but want to do it by number:

Sub NumericallyApplyMasters()
    With ActiveWindow.Selection.SlideRange
        ' choices: Nobody, Bob, Carol, TedAndAlice
       .Design = ActivePresentation.Designs(3)
    End With
End Sub

What are the names/numbers of the available designs? This'll list them.
Press Ctrl+G in the VBA editor to display the Immediate window, where this information will appear.

Sub ListMasterNames()
    Dim x As Long
    For x = 1 To ActivePresentation.Designs.Count
        Debug.Print ActivePresentation.Designs(x).Name
    Next
End Sub