Sub range() Dim mySlideRange As SlideRange Set mySlideRange = Presentations("HR.ppt").Slides.Range(Array(1, 2, 3, 4, 5))End Sub