This example runs a slide show of the active presentation, starting with slide two and ending with slide four.
With ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = 2
.EndingSlide = 4
.Run
End With