Link i Excel ark, når faner skifter navn

Hej
Jeg har følgende kode, som medfører, at jeg opretter link til et ny oprette sheet(StandardArk (2)) - Se nedenstående makro, min udfordring er når jeg ændre navnet på sheetet(StandardArk (2)) og efterfølgende kører nedenstående Macro igen, kører de nye henvisninger hen til det første oprindelig Sheet(StandardArk (2)), samt virker udskrift henvisningerne ikke

Nogle ideer ift. hvad jeg gør galt? 

    Sheets("StandardArk").Select
    Sheets("StandardArk").Copy Before:=Sheets(3)
    Sheets("Oversigtskema").Select
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Range("B5").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C5").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D5").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[-3]C"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[-3]C[5]"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[-3]C"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[-3]C[1]"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[-3]C[-1]"
    Range("H5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[-3]C[2]"
    Range("I5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[45]C[2]"
    Range("J5").Select
    ActiveCell.FormulaR1C1 = "='StandardArk (2)'!R[987]C[1]"
    Range("K5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=[@Kontraktsum]+[@Ekstrasum]"
    Range("C5").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'StandardArk (2)'!A1"
    Range("J5").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'StandardArk (2)'!A992"
    Sheets("StandardArk (2)").Select
    Range("B939:K993").Select
    ActiveWorkbook.Names.Add Name:="Standardark2_ATS_Udskrift", RefersToR1C1:= _
        "='StandardArk (2)'!R939C2:R993C11"
    Sheets("Oversigtskema").Select
    Range("D5").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Standardark2_ATS_Udskrift"
    Sheets("StandardArk (2)").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("B1:K938").Select
    Range("K938").Activate
    ActiveWorkbook.Names.Add Name:="Standardark2_Ac_Udskrift", RefersToR1C1:= _
        "='StandardArk (2)'!R1C2:R938C11"
    Sheets("Oversigtskema").Select
    Range("B5").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Standardark2_Ac_Udskrift"