Deleting a Custom Show
Sub del() ActivePresentation.SlideShowSettings.NamedSlideShows("Overview").Delete End Sub