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