Hi,
So I am trying to present this pptx as a slideshow and have it keep running until it closes the slideshow and the application itself at 11:05 AM. What my code is doing right now is going through the slides in slideshow and looping correctly but not closing everything at 11:05 as it should. Does anyone know how to do this? Thanks

Sub OpenFile()
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
Set pptPres = pptApp.Presentations.Open("Compute_Dashboard.pptx")

ActivePresentation.SlideShowSettings.Run

For Each s In ActivePresentation.Slides
With s.SlideShowTransition
.AdvanceOnTime = True
.AdvanceTime = 3

If Time() = "11:05:00 AM" Then
ActivePresentation.SlideShowWindow.view.Exit
Application.Quit

End If
End With
Next