Powerpoint VisualBasic Script

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