I tried to make it specific to the title of the PPTM.
Here my PPTM file is titled "X" but it doesn't stop the disruptions. I just want the main PPTM to not go to the Case slides, but allow the other PPTs to go wherever.


Sub OnSlideShowPageChange()
    Dim oPres As Presentation
    
    Set oPres = Presentations("X.pptm")
    
    
    With oPres.SlideShowSettings
        .LoopUntilStopped = msoCTrue
        .AdvanceMode = ppSlideShowUseSlideTimings
        .ShowType = ppShowTypeWindow
        .Run
   End With
   
    Select Case oPres.SlideShowWindow.View.CurrentShowPosition
        'might be more flexible
        Case 3, 5, 7, 9
        With oPres
            With SlideShowWindows(1).View
              .GotoSlide (.LastSlideViewed.slideIndex), msoFalse
        End With
        End With
        Case Else
         Exit Sub
  End Select
End Sub