<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> power1()<br><SPAN style="color:#00007F">Dim</SPAN> ppt <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Object</SPAN><br><SPAN style="color:#00007F">Set</SPAN> ppt = CreateObject("PowerPoint.Application")<br><SPAN style="color:#00007F">With</SPAN> ppt<br> .Visible = <SPAN style="color:#00007F">True</SPAN><br> .presentations.Open "Path to .ppt"<br> <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>