Execute Macros through Hyperlinks.

[saddat]

could anybody help my in this regard? I need to execute Macros by using
simple text links (hyperlinks). I can run macros through images or form
objects, but now the problem is bit different. I dont even have an idea
how to run macros through hyperlinks. please guys help me out in this
regard, it is very urgent for me. thanks and regards,

Saddat Sarfraz
(Saadi)

 

[Tim Williams]

Create hyperlinks which just point to the same cell the hyperlink is in.
Handle the sheet's FollowHyperlink event to dtermine which link was clicked.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Select Case Target.Address 'or some other property
Case "D8": MsgBox "call a macro"
Case "D9": MsgBox "call a different macro"
End Select

End Sub

....replace the Msgbox with calls to the appropriate macro.

Tim

 

[saddat]

thanks Tim for your reply,

could you also help me out and tell me how do I call the Macro. may I
just need to wrtie the name of the macro in place of MsgBox function.

thanks,

Saddat Sarfraz
(Saadi)

 

[Tim Williams]

may I just need to wrtie the name of the macro in place of MsgBox function.
Yes - that's all you need to do
....
Case "whatever": MacroName
....

Tim

 

[saddat]

Sorry to trouble you again.

I am trying to run the command but nothing is happaning. I tried with
Macro as well as MsgBox Function, nothing is working.

 

[Tim Williams]

Show the exact code which is not working.
What does it do instead of working?

tim

 

[Guest]

Hi,
This worked:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Select Case ActiveCell.Address

Case "$D$8": MyMacro
Case "$D$9": MsgBox "call a different macro"

End Select

End Sub

Sub MyMacro()
MsgBox "MyMacro called"
End Sub


HTH