Sub OpenPowerPntDoc(
Dim PwrPnt As Object, Pres As Objec
On Error Resume Nex
Set PwrPnt = GetObject(, "PowerPoint.Application"
If Err.Number Then Set PwrPnt = CreateObject("PowerPoint.Application"
On Error GoTo
PwrPnt.Visible = Tru
' us this line to open a specific Pressentation file, where MyFilePath = File path & Name, i.e "C:\Pres.ppt
Set Pres = PwrPnt.Presentations.Open(MyFilePath
End Su

----- Julie wrote: ----

Is there a way to open a powerpoint file from excel
without having powerpoint open first

Thanks

Juli