Using VBA to Activate a Hyperlink

M

Matt

Hello Everyone

I am attempting to use VBA to activate a link to a PDF file
I can select the cell but am unsure as how to activate the link so the PDF
file is opened

My macro finds the correct cell which sas the formula
"=HYPERLINK("D:\$SWE Accounting - Invoices\HSBC Cards\2006 09 (Sep) 19 -
Mandarin Oriental - 25.00.PDF","Open File")"

If I click on this cell the file opens but I want the VBA to kick of this
action

Thanks for reading this far and in advance for any help you can give.

Cheers


Matt
 
V

Vergel Adriano

Matt,

Assuming the cell with hyperlink is A1, try this:


ActiveSheet.Range("A1").Hyperlinks(1).Follow
 
M

Matt

Hi Vergel

This didn't actually work for me
But this did

ActiveWorkbook.FollowHyperlink Address:="C:\Test\test.pdf", NewWindow:=True

Thanks for your help though

Matt
 
M

Matt

Thanks Zack

This is what I found, and it did the trick

ActiveWorkbook.FollowHyperlink Address:="C:\Test\test.pdf", NewWindow:=True

Cheers
 
S

S1lverface

Your code: ActiveSheet.Range("A1").Hyperlinks(1).Follow, works fine for me
under normal conditions, however, my Hyperlink in Cell A1 is made up of a
Concatenate using cells from different worksheets. Such as below :

=HYPERLINK((CONCATENATE(HoldPoints!$F$2,HoldPoints!E4)),P4)

If I click on it, it opens fine, however, if I try to open it with the vba
code I get an error message "Subscript out of range".

Can you help.
Thanks.
 
Top