vba sheet 移动到其他excel此时有跨表链接，再断开链接数值化

Sub 宏2()
'
' 宏2 宏
'

'
    Range("A1").Select
    Sheets("Sheet3").Select
    Sheets("Sheet3").Move Before:=Workbooks("新建 Microsoft Excel 工作表.xlsx").Sheets _
        (2)
    Range("A3").Select
    Sheets("Sheet3").Select
    Windows("新建 Microsoft Excel 工作表 - 副本.xlsx").Activate
    Range("A3").Select
    ActiveWorkbook.Save
    Application.Goto Reference:="宏2"
End Sub

Sub 宏3()
'
' 宏3 宏
'

'
    ActiveWorkbook.BreakLink Name:="E:\新建 Microsoft Excel 工作表.xlsx", Type:= _
        xlExcelLinks
    Range("A3").Select
End Sub

上述代码分别是：sheet 移动到其他excel、断开跨表引用