SheetFollowHyperlink Event

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Occurs when a hyperlink is clicked.

Private Sub object_SheetFollowHyperlink(ByValShAs Worksheet, Target As Hyperlink)

object  Required. The name of a Spreadsheet object that you are trapping this event for.

Sh   Required. The worksheet that has been deactivated.

Target  Required. The hyperlink that has been clicked.

Example

This example keeps a log of hyperlinks clicked in Spreadsheet1. The name of the sheet containing the hyperlink and the target address are written to Sheet3 each time that a hyperlink is clicked.

  Sub Spreadsheet1_SheetFollowHyperlink(Sh, Target)

    Dim ssConstants
    Dim rngNewItem
    Dim shtListSheet

    Set ssConstants = Spreadsheet1.Constants

    ' Set a variable to Sheet3.
    Set shtListSheet = Spreadsheet1.ActiveWorkbook.Worksheets("Sheet3")

    ' Set a variable to the first available cell in column A of Sheet3.
    Set rngNewItem = shtListSheet.Range("A262144").End(ssConstants.xlUp).Offset(1, 0)

    ' Write the name of the sheet to Column A of Sheet3.
    rngNewItem.Value = Sh.Name

    ' Write the target address of the hyperlink to Column B of Sheet3.
    rngNewItem.Offset(0, 1).Value = Target.Address

End Sub