open powerpoint file

I want to open a power point file with the following code but it's always
giving me an error on the last line. Somebody knows?

Sub openppt()

Dim Brocoli As Object
Dim Potato As Object
Dim carot As String

carot = "C:\random folder\open me.ppt"

Set Brocoli = CreateObject("powerpoint.Application")
Brocoli.Visible = True

Set Potato = Brocoli.documents.Open(Filename:=carot)

End Sub

Yes I made it up, it works perfectly when you replace "document" by
"presentations"
Thanks!!!

"Chip Pearson" wrote:

> The PowerPoint object model doesn't have a Documents object. Did
> you just make it up? Try
>
> Set Potato = Brocoli.Presentations.Open(filename:=carot)
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
>
>
> "raph_baril" <[email protected]> wrote in
> message
> news:[email protected]...
> >I want to open a power point file with the following code but
> >it's always
> > giving me an error on the last line. Somebody knows?
> >
> > Sub openppt()
> >
> > Dim Brocoli As Object
> > Dim Potato As Object
> > Dim carot As String
> >
> > carot = "C:\random folder\open me.ppt"
> >
> > Set Brocoli = CreateObject("powerpoint.Application")
> > Brocoli.Visible = True
> >
> > Set Potato = Brocoli.documents.Open(Filename:=carot)
> >
> > End Sub
>
>
>