TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Option Explicit
Public ReturnToSlide As Long

Sub RememberWhere()
    ' Make the MOUSEOVER action of your navigation buttons run this
    ReturnToSlide = SlideShowWindows(1).View.Slide.SlideIndex
End Sub

Sub GoBack()
    ' Make this the MOUSECLICK action of the Return to  button
    SlideShowWindows(1).View.GotoSlide (ReturnToSlide)
End Sub