Powerpoint VisualBasic Script

Sub gotoSlide()
    Application.SlideShowWindows(1).View.GotoSlide Index:=5
End Sub