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
|