Ist es möglich Powerpoint per Macro zu beenden und gleichzeitig eine .html aufzurufen, und zwar am Ende der Slideshow?

Versucht habe ich es folgendermaßen:

Private Sub App_SlideShowEnd(ByVal Pres As Presentation)

Dim pfad As String
pfad = "D:\Temp\wget\Spiegel.html"
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run pfad

Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject("Powerpoint.Application")
Set ppApp = New PowerPoint.Application
ppApp.quit
Set ppApp = Nothing

End Sub

Das Macro an sich funktioniert, wenn ich es manuell in folgender Form starte:

Sub quit()

Dim pfad As String
pfad = "D:\Temp\wget\Spiegel.html"
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run pfad

Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject("Powerpoint.Application")
Set ppApp = New PowerPoint.Application
ppApp.quit
Set ppApp = Nothing

End Sub

Wenn es allerdings automatisch am Ende der Slideshow stattfinden soll, öffnet er zwar die .html, schließt jedoch Powerpoint nicht.