my hyperlink not work - Excel VBA

[emilt_milut]

Thank you for your time. I am a realbeginner in the VBA and I am asking for your help for the next issue.
I have <o></o>
A sheet called "START" in which anActiveX ComboBox named ”CLIENTI” is inserted,<o></o>
and<o></o>
A sheet called "CLIENTI" in whichthe Range ”B3:B100” contain hyperlink addresses to various Workbooks<o></o>
ListFillRange – ”CLIENTI!B3: B100”<o></o>
LinkedCell – ”CLIENTI!A3”<o></o>
Sheet files in the list of"CLIENTI" are located in C:\DIANA\TRAD\clienti\<o></o>
I want to open the selected file from ComboBoxby activating the hyperlink<o></o>
I wrote thefollowing procedure, but it does not work.<o></o>
Sub Open_pg_client()<o></o>
'<o></o>
' Open_pg_client Macro<o></o>
' Range("J3")=CONCATENATE(G3;A1;H3)<o></o>
' Range("G3")= file:///C:\DIANA\TRAD\clienti\<o></o>
' Range("A1") = LinkedCell<o></o>
' Range("H3") = .xlsx<o></o>
' Range("K3")=contain the value of Range("J3")<o></o>
' Range("M5")= HYPERLINK($K$3)<o></o>
Sheets("CLIENTI").Select<o></o>
Range("J3").Select<o></o>
Application.CutCopyMode = False<o></o>
Selection.Copy<o></o>
Range("K3").Select<o></o>
Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<o></o>
:=False, Transpose:=False<o></o>
<o></o>
Sheets("CLIENTI").Range("M5").Hyperlinks(2).Follow<o></o>
<o> </o>
If GetUserAddress = True Then<o></o>
MsgBox "Successfullyfollowed hyperlink."<o></o>
Else<o></o>
MsgBox "Could not followhyperlink."<o></o>
End If<o></o>
End Sub<o></o>
<o> </o>
I get the errormessage:<o></o>
”Run-time error ”9”:<o></o>
Subscript Out of Range”<o></o>
Thank you in advance for any help.<o></o>
Kind Regards<o></o>

 

[edmitchell]

Hi

Your routine appears to be copying a link into cell K3 from J3, but then referencing it in M5, wasn't sure that was what you intended?

But any way, the copied data is just a reference in text to a path (and not a hyperlink), so if you change "Sheets("CLIENTI").Range("M5").Hyperlinks(2).Follow" to "ActiveWorkbook.FollowHyperlink Address:=Range("K3").Value" (referencing cell K3, or if you do need it to refer to M5 - you just need to change the reference), this should then work (does in my test file anyway!)

regards

 

[emilt_milut]

Dear edmitchell
Thank you very very much!
It works super!
All the best for you!