I think a stray comma and a stray space crept in there.

Dim pptApp As Object
Set pptApp = CreateObject("Powerpoint.Application")
pptApp.Visible = True
pptApp.Presentations.Open filename:="c:\My Documents\pres1.ppt"



Bob Phillips wrote:

Sure it can

Set pptApp = CreateObject(,"Powerpoint.Application")
pptApp.V isible = True
pptApp.Presentations.Open FileName:="c:\My Documents\pres1.ppt"