Sub show() ActivePresentation.SlideShowWindow.View.State = ppSlideShowBlackScreen ActivePresentation.SlideShowWindow.View.State = ppSlideShowWhiteScreen End Sub