Run macro with hyperlink, from add-in

[Formula11]

To run a macro from a hyperlink, code below is used.
Cell with hyperlink is named, then right-click, Link, Place in This Document, choose named cell.

It works in workbook with code, why doesn't it work from add-in?

'CODE IN WORKSHEET
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Name = Range("named_cell") Then
        MsgBox "Clicked"
    End If
End Sub

 

[Domenic]

You'll need to use the application-level event handler...

1) Insert a class module (Visual Basic Editor >> Insert >> Class Module).

2) Name the class module clsApp in the Properties window under Name.

3) Place the following code in the class module...

Option Explicit

Public WithEvents xl As Excel.Application

Private Sub xl_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    
    'Your code here
    '
    '
    
End Sub

4) Insert a regular module (Visual Basic Editor >> Insert >> Module).

5) Place the following in the regular module...

Option Explicit

Dim xlApp As clsApp

Sub Init()
    
    Set xlApp = New clsApp
    Set xlApp.xl = Application
    
End Sub

6) In the Project Explorer window, right-click ThisWorkbook, select View Code, and place the following code in the module...

Option Explicit

Private Sub Workbook_Open()
    Init
End Sub

Hope this helps!

 

[Formula11]

Thanks Domenic, instructions worked, and very detailed, cheers

 

[Domenic]

You're very welcome, I'm glad I could help.

Cheers!