Sub settings() With Presentations("Corporate.ppt").SlideShowSettings .RangeType = ppShowSlideRange .StartingSlide = 4 .EndingSlide = 8 .Run End With End Sub