View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Per Jessen Per Jessen is offline
external usenet poster
 
Posts: 1,533
Default Help with code to run macros from hyperlinks

Hi Joe

You can only have one instance of the event code in a workbook, so you have
to make multiple if-then statements within it.

Look at my example:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Target.Parent, Range("B13")) Is Nothing Then
JacDetailedAnalysisTable
End If
If Not Intersect(Target.Parent, Range("B14")) Is Nothing Then
CallOtherMacro
End If
End Sub

Regards,
Per

"Monomeeth" skrev i meddelelsen
...
Hello

I am using the following code to run a macro from a hyperlink located in
cell B13.


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Target.Parent, Range("B13")) Is Nothing Then
JacDetailedAnalysisTable
End If
End Sub


The above works fine, but I want to be able to have multiple hyperlinks,
each of which runs a different macro. All of the hyperlinks are on the
same
worksheet.

How do I modify the code to achieve this?

I tried repeating the code multiple times, changing the cell reference and
subroutine name for each hyperlink, but this caused all sorts of problems.

Your help would be greatly appreciated.

Thanks,

Joe.
--
If you can measure it, you can improve it!