How do I execute code upon opening a PowerPoint presentation?

[hkfuwee]

I am trying to execute the following code when I start a PowerPoint presentation:

Private Sub App_PresentationOpen(ByVal Pres As Presentation)
With Application.Presentations.Open
ActiveWindow.Selection.SlideRange.Shapes("Object 10&quot.Select
ActiveWindow.Selection.ShapeRange.OLEFormat.DoVerb Index:=1
End With
End Sub

According to the help file, this should work, however, it is not executing when I open the file or when the presentation is started. Ultimately, I would like to get this to work and save the file as a .pps.