BET: Microsoft Excel Worksheet Controls

Microsoft Office Development and Consultancy

Home

Excel

VBA

Excel > Worksheet Controls > Hyperlink Control

< Previous | Next >

1
2
3

Private Sub Worksheet_FollowHyperlink(ByValTarget As Hyperlink)
Call Hyperlink_Activate(Target)
End Sub

4
5
6
7
8
9
10
11
12
13
14
15
16

Public Sub Hyperlink_Activate(ByVal objHyperlink As Hyperlink)
Dim sScreenTip As String
   sScreenTip = objHyperlink.ScreenTip

   Select Case sScreenTip
      Case "MacroName"
'do something
'maybe even update the ScreenTip
      objHyperlink.ScreenTip = "Blah blah"

   End Select

End Sub

< Previous | Top | Next >