Applies the design template named Disaster.pot to a range of slides consisting of the first, fourth, and sixth slides in the active presentation

 
Sub range()
    ActivePresentation.Slides.Range(Array(1, 4, 6)).ApplyTemplate _
        FileName:="C:\Your.pot"
End Sub

1.	Applying a Template to a Presentation, to a Slide, or to a Range of Slides
2.	Apply the design template named Mountain Top.pot to the first slide in the presentation named Success.ppt:

Applies the design template named Disaster.pot to a range of slides consisting of the first, fourth, and sixth slides in the active presentation : Slide Tempalte « PowerPoint « VBA / Excel / Access / Word