Hyperlinking Buttons

[VL00kup]

Is it possible to dynamically assign a hyperlink to a button, based on the value of a cell. That is, so that clicking on a button links to a URL defined in a given cell?

Thank you!

 

[daverunt]

Hi,

I have done something along the lines of the following in the past.
I am assuming that's what you mean.

Sub Button1_Click()

Worksheets("Sheet1").Range("C4").Hyperlinks(1).Follow NewWindow:=True

End Sub

 

[VL00kup]

Thanks for this. I think it will likely address what I am trying to solve for.

However, I am getting an error when I try to run the macro that says "Runtime error 9... Subscript out of range." Is there something else I need to set-up the script? Apologies if this is a basic question, as I am pretty new to VBA

Thank you

 

[My Aswer Is This]

Assuming you will enter something like this in Range("A1")
"CNN"
Then use a script like this:

Sub Link_Me()
On Error GoTo M
Link = "http://" & Cells(1, 1).Value & ".com"
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Exit Sub
M:
    MsgBox "Cannot open " & Link
End Sub

 

[daverunt]

Check the worksheet the link is on is the right name. I have assumed 'Sheet1' and that the range it refers to is correct. I have assumed the hyperlink is in 'C4'