vba超链接和数据从一张纸到另一张

Question

我有一份我正在工作的工作簿。我的大部分工作方式都是我现在想要的。我遇到困难的地区在下面的代码中。

Private Sub newITEMsheet_Click()

    ' newROWmainPAGE Macro
    ' insert new row on the part number list

    Dim MySheetName As Variant    
    MySheetName = Application.InputBox("Which part number would you like to add to the list?")

    If MySheetName = "" Then Exit Sub
    If MySheetName = False Then Exit Sub
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A3").Value = MySheetName
    Range("q1").Value = MySheetName
    Sheets("blank").Copy After:=Sheets("blank")


    ActiveSheet.Name = MySheetName
    ActiveSheet.[c1] = ActiveSheet.Name


 End Sub

我想要实现的目标是： 用户单击一个表示添加新零件号的按钮 然后得到一个输入框。 inputbox值是一个变量 完成后，它在第3行上方插入一行，将存储的变量插入到单元格a3和q1中。 然后复制“空白”工作表{它不是真正的空白}并在空白后将其作为新工作表插入。 然后，新的活动工作表将对变量进行名称更改。 它还将变量插入到单元格c1中。 这一切都很好。

我需要帮助的部分是原始工作表上的单元格a3成为新工作表的超链接。 我还需要将新工作表中单元格c2中的信息链接到原始单元格b3上。它必须在庄园中链接，如果第二张纸上的信息发生变化，那么第一张纸上的信息就会发生变化。