I was suggesting it WONT work with a ppsm.

Try removing the two lines that minimise the window


Sub newshow()
Dim nextpres As Presentation
Msgbox "OK,I'm running"

SlideShowWindows(1).View.Exit
Set nextpres = Presentations.Open("your full path ")

nextpres.SlideShowSettings.Run
End Sub

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials