Opening PDFs

[sassriverrat]

Trying to open a pdf using excel 2010.

I get the "trusted" window which I click yes to, and then nothing. Adobe has always worked fine on this machine. I'd be happy opening with Google Chrome if that was more effective....

Sub Opener()Dim tstamp As String
Dim Namer As String
Dim pdf As String
With Sheets("Background")
    Namer = .Range("B4")
End With
On Error Resume Next
pdf = Environ("Userprofile") & "\Documents\" & tstamp & "\" & Namer & ".pdf"
ActiveWorkbook.FollowHyperlink pdf
End Sub

 

[James006]

Any reaction to ...

https://www.mrexcel.com/forum/excel-questions/1095000-vba-add-vba.html

 

[sassriverrat]

I’m not sure I follow. J was going to read that piece today when I get s bit of time....but I’ve not see the follow hyperlink piece not work before...

 

[James006]

What about : ActiveWorkbook.FollowHyperlink Address:=strPDFFile, NewWindow:=True

HTH

 

[James006]

Feel free to post your comments ...

 

[sassriverrat]

Sorry for the delay @James006, I just had a chance to get to it and run it. It worked! So out of curiosity, what would allow it to work here and not elsewhere?