Powerpoint VisualBasic Script

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