Excel VBA Open Powerpoint File

[gmooney]

I am getting the error code "Method of 'Open' of object 'Presentations' Failed on the last line of code before the End Sub:

Private Sub MonthlyToplinePPT()
' Opens Presentation.pptx


Dim PPT As PowerPoint.Application
Set PPT = New PowerPoint.Application
PPT.Visible = True
PPT.Presentations.Open Filename:="C:\Topline\Topline Writeup.pptx"


End Sub

Any suggestions?

 

[DanteAmor]

Try this:

Sub openppt()
    Dim PPT As Object
    Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True
    PPT.Presentations.Open Filename:=[COLOR=#333333]"C:\Topline\Topline Writeup.pptx"[/COLOR]
    Set PPT = Nothing
End Sub

 

[gmooney]

DanteAmor,

Perfect. Worked like a charm!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.