Sub show() ActivePresentation.SlideShowWindow.View.State = ppSlideShowBlackScreen ActivePresentation.SlideShowWindow.View.State = ppSlideShowWhiteScreenEnd Sub