Powerpoint VisualBasic Script

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