Show slides 4 through 8 in the presentation
Sub settings() With Presentations("Corporate.ppt").SlideShowSettings .RangeType = ppShowSlideRange .StartingSlide = 4 .EndingSlide = 8 .Run End With End Sub