Как заставить мой макрос saveas & breaklink работать правильно

Question

Я пытался связать воедино макрос, чтобы сохранить пару листов в различные файлы и впоследствии разорвать ссылки - часть сохранения файлов работает, но независимо от того, что я пробовал, ссылки в целевых файлах книги остаются живыми,Может кто-нибудь сказать мне, что мне здесь не хватает?

Sub Sheet_SaveAs()
    Application.ScreenUpdating = False
    Dim wb As Workbook
    Dim Sh As Worksheet
    Dim strSaveName As String
    Set Sh = ThisWorkbook.Sheets("Dealers")

    Dim i As Integer
    Dim LAST_ROW As Integer
    Dim Data As String

    LAST_ROW = Application.WorksheetFunction.CountA(Sh.Range("A:A"))

    For i = 2 To LAST_ROW
        Worksheets("New Sales Performance").Range("B1").Value = Sh.Range("a" & i)

        Worksheets("Bonus Calc Horiz").Range("C4").Value = Sh.Range("a" & i)

        Sheets(Array("New Sales Performance", "Bonus Calc Horiz")).Copy
        Set wb = ActiveWorkbook
        With wb
            .SaveAs ThisWorkbook.Path & "\Test\" & Sh.Range("a" & i) & ".xlsm", FileFormat:=52
            Call breaklinks(wb)
            .Close False
        End With

    Next i
    Application.ScreenUpdating = True
End Sub

Sub breaklinks(wb As Workbook)
    Dim ExternalLinks As Variant
    Dim x As Long

    ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)

    For x = 1 To UBound(ExternalLinks)
        wb.BreakLink Name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks
    Next x
End Sub