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