Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  MsgBox "Source: Target.Range.Address  " & Target.Range.Address
  MsgBox "Source: Target.Range.Value " & Target.Range(1, 1).Value
  ' Some more macro stuff here
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '~~> Change A1 to the cell which is behind the shape
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        '~~> Change this to the relevant sheet
        With ThisWorkbook.Sheets("Sheet1")
            .Visible = xlSheetVisible
            .Activate
        End With

        '
        '~~> Other Code if required
        '
    End If
End Sub