FollowHyperlink Event Example

This example keeps a list, or history, of all the links that have been visited from the active worksheet.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    With UserForm1
        .ListBox1.AddItem Target.Address
        .Show
    End With
End Sub