Vba 超链接处理程序代码中超链接的区分

如何引用名为delete的特定超链接，而不是以下代码中具有不同名称的其他超链接：

Private Sub Workbook_SheetFollowHyperlink(ByVal sh As Object, ByVal Target As Hyperlink)
Range(ActiveCell.Address).Name = "Delete"

MsgBox ("Activated - Workbook_SheetFollowHyperlink - before IF-ELSE")

If Range(ActiveCell.AddressLocal).Text = "Delete" Then

    ClearThatCell 'Calling ClearThatCell sub
 Else
 MsgBox ("It's regular link - NOT DELETE ")
End If


End Sub
'This SUB is clearing the selected cell
Sub ClearThatCell()
ActiveCell.Clear
 MsgBox ("The cell is cleared!")

End Sub

Sub Workbook_SheetDeactivate(ByVal sh As Object)
        LastSheet = sh.Name
End Sub

上面的代码是超链接的处理程序，但我希望只有在父工作簿中单击“删除”超链接时才使用此代码。

---

感谢所有试图帮助你的人

我猜，哪一个工作表的事件启动宏并不重要

---

查看文档中的，并查看可以对超链接执行的其他操作。

我猜想，启动宏的工作表事件并不重要

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

    If Target.TextToDisplay = "Delete" Then

        Debug.Print "deleting"
        'do stuff

    End If

End Sub

---

查看文档中的链接，看看你还可以用超链接做些什么。

谢谢你的回复，这正是我需要的。谢谢你的回复，这正是我需要的。谢谢蒂姆的回复，但不幸的是你的代码对我不起作用。谢谢蒂姆的回复，但不幸的是你的代码对我不起作用。

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

    If Target.TextToDisplay = "Delete" Then

        Debug.Print "deleting"
        'do stuff

    End If

End Sub