Dim pptApp As Object Dim pptPres As Object Dim slideIndex As Integer ' Create a new PowerPoint application Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = True ' Create a new