Worksheet_FollowHyperlink does not work
Rem Sheet Module
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.Range.Value
Case "Insert After"
MsgBox Target.Range.Value
Target.Range.Offset(1, 0).Select
Selection.EntireRow.Insert
Me.Range(Selection.Offset(1, 0), Selection.Offset(1, 0).End(xlToRight)).Select
Selection.Copy
Target.Range.Offset(1, 0).Select
ActiveSheet.Paste
Case Else
End Select
Target.Range.Select
End Sub