Moving from Slide to Slide
Sub current() MsgBox ActivePresentation.SlideShowWindow.View.CurrentShowPosition End Sub