Dim powerpoint_4 Set powerpoint_4 = CreateObject("PowerPoint.Application") powerpoint_4.Activate Dim presentation_4_1 Set presentation_4_1 = powerpoint_4.Presentations.Open("C:\temp\sample.ppt ") With this the PPT comes up, I do not wish PPT to come up and make some changes to sample.ppt