Sub slide() With ActivePresentation.SlideShowSettings .RangeType = ppShowNamedSlideShow .SlideShowName = "Short Show" .Run End WithEnd Sub