Hi,

You could try something like

Code:
Sheet1.Hyperlinks.Add Range("A2"), "C:Temp\MyPDF.pdf"
    Range("A2").Hyperlinks(1).Follow NewWindow:=1