Private Declare Sub Sleep Lib "kernel32" _
   (ByVal lMillisek As Long)
 
Private mypower As New PowerPoint.Application
 
Sub Auto_Open()
   Application.Visible = False
   With mypower
     .Activate
     .Presentations.Open ("Pfad_Name_der_Präsentation")
     .ActivePresentation.SlideShowSettings.Run
     DoEvents
     Sleep 3000
     .Quit
   End With
   Set mypower = Nothing
   MsgBox "CyberLord was here"
   Application.Visible = True
End Sub