Start a slide show from a specific slide

The following VBA code demonstrates how start a slide show from a specific slide:

Sub LaunchSlideShowFromSlide(ByVal Pres As Presentation, _
    ByVal SlideIndex As Long)

    On Error Resume Next

    With Pres.SlideShowSettings.Run
        .View.GotoSlide SlideIndex
    End With
End Sub

Sub Test()
    LaunchSlideShowFromSlide ActivePresentation, 3
End Sub