Cacher is the code snippet organizer for pro developers

Sub add_jump1()
    'need col "a d e" filled with "jump1 n_row jump_link", col "n_row" fill as "100 200 350"

    i1 = Selection.row
'    j1 = Selection.Column
'    j2 = j1 + 1
    i1_t1 = fr("jump1")
    j1 = fc("n_row", i1_t1)
    j2 = fc("jump_link", i1_t1)
    '-----
    Cells(i1, j2).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        ActiveSheet.Name & "!a" & Cells(i1, j1) + 5, TextToDisplay:="jump"
    '---
    Cells(Cells(i1, j1) + 2, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        ActiveSheet.Name & "!" & convert1(j1) & i1, TextToDisplay:="jump"
    '-----
    Cells(i1 + 1, j1).Select
End Sub