Run-time error 1004 opening embedded object

[harveya915]

I have an embedded object (pdf) in my sheet. I have a Command Button to open up that object. Here is the code I have:

Private Sub CommandButton4_Click()
With ActiveSheet
Set o = .OLEObjects("Object 15")
o.Verb xlVerbOpen
End With
End Sub

However, after I click the button, the pdf does open up but i get a run time error 1004: Cannot start the source application for this object. When I click Debug it highlights the line:

o.Verb xlVerbOpen

Any help on how to fix this? Much thanks!

 

[harveya915]

Follow up:
I noticed that the error doesn't immediately pop up. When the PDF file opens up, I minimize it, resize it, or move it to another screen and I don't see the error show up anywhere. Not until I close the file is when the error shows up.