How to Apply this VBA to more than just Slide 3??

[Kellaroo]

This code works brilliantly for automatically returning the viewer from Slide 3 to 'last slide viewed'
but it seems to only be applicable to one slide.
For example, I want to apply it to every odd numbered slide in index (ie 3,5,7,9,11, etc) but then it stops working...

Sub OnSlideShowPageChange()
With ActivePresentation.SlideShowSettings
    .LoopUntilStopped = msoCTrue
    .AdvanceMode = ppSlideShowUseSlideTimings
    .ShowType = ppShowTypeWindow
    .Run
   End With
   
    Dim i As Integer
    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    If Not i = 3 Then Exit Sub
    With SlideShowWindows(1).View


     .GotoSlide (.LastSlideViewed.SlideIndex), msoFalse
    End With


End Sub

Any help would be greatly appreciated!