Embedded PDF opens in background

[ftcjim]

I made a Excel s[read sheet with about 50 worksheets, each represents a author. Sheet 2 has a PDF embedded with synopsis for a number of books. I wanted a button on each worksheet that when clicked it would refer back to sheet 2 and open the PDF. The code I made is :
Sub OpenPdf()
'
' OpenPDF Macro
'

'
Sheets("Synopsis").Select
ActiveSheet.Shapes.Range(Array("Object 3")).Select
Selection.Verb Verb:=xlPrimary
End Sub

This works fine. The problem is the PDF opens in the background. Is there a way to add or modify in order to resolve the open in background issue.
Thanks
JIm

 

[John_w]

Try this one-liner:

    Worksheets("Synopsis").OLEObjects("Object 3").Verb Verb:=xlVerbOpen

 

[ftcjim]

Thanks John, that worked fine but it also brought up an error box. It did bring up the PDF in foreground and Adobe Acrobat did open it.

 

[John_w]

This should open the PDF without error:

Sub Open_PDF()
    On Error Resume Next
    Worksheets("Synopsis").OLEObjects("Object 3").Verb Verb:=xlVerbOpen
    On Error GoTo 0
End Sub

 

[ftcjim]

Thanks John that works fine. Thanks for the help
Jim