Hyperlink with an active x control button

[Doug]

I have an active x control button called Sub Button12_Click()
When I click on this button, I would like to have it add a hyperlink to all
the cells M2 through M203. I have another macro that is simular to this but
can't figure out how to get it to work for the active x control button? Can
anybody please help?
--

 

[Joel]

Post your old code. It should be very simple to modify working code then to
start from scratch.

 

[Doug]

This is the old working code.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = True
If Target.Column <> 13 Then Exit Sub
Application.EnableEvents = False
ActiveWorkbook.FollowHyperlink Address:=
"http://moneycentral.msn.com/investo...0=1&MA1=2&CF=4&D8=1&DB=1&DC=1&D7=&D6=&symbol=" & Target.Value & "&nocookie=1&SZ=2"
Application.EnableEvents = True
End Sub

 

[p45cal]

something like this?Private Sub CommandButton1_Click()
'remove old hyperlinks:
For Each hyp In Range("M2:M203").Hyperlinks
hyp.Delete
Next hyp
'add new ones:
For Each cll In Range("M2:M203")
ActiveSheet.Hyperlinks.Add Anchor:=cll
Address:="http://moneycentral.msn.com/investo...0=1&MA1=2&CF=4&D8=1&DB=1&DC=1&D7=&D6=&symbol=
& cll.Value & "&nocookie=1&SZ=2"
Next cll
End Su