Powerpoint aus Excel starten

ich starte eine Powerpointpräsentation aus Excel mit folgendem
Makro:

Sub Powerpoint()
Dim MSppt As Object
Application.ActivateMicrosoftApp (xlMicrosoftPowerPoint)
Set MSppt = GetObject("F:\Unterlagen\Folien2002.ppt")
MSppt.UpdateLinks
ActiveWorkbook.FollowHyperlink Address:="F:\Unterlagen\Folien2002.ppt"
End Sub

Das klappt prima, nur klappt mir dabei Excel zu und das soll eigentlich offen bleiben.

Sieht jemand was da fehlt/zuviel ist ?

Gruß
Jutta