To exit a custom show, use the EndNamedShow method and then use the Next method to advance the presentation.
Sub show() With ActivePresentation.SlideShowWindow.View .EndNamedShow .Next End With End Sub