Sub show() With ActivePresentation.SlideShowSettings .LoopUntilStopped = msoCTrue .AdvanceMode = ppSlideShowUseSlideTimings .ShowType = ppShowTypeKiosk .Run End With End Sub