Sub Связи() 'разорвать все связи
    Dim WorkbookLinks As Variant
    Dim Wb As Workbook
    Dim n As Variant
    Dim i As Long
        For Each n In ActiveWorkbook.Names:
        On Error Resume Next
            n.Delete:
        Next

        Set Wb = ActiveWorkbook
        WorkbookLinks = Wb.LinkSources(Type:=xlLinkTypeExcelLinks)
        If IsArray(WorkbookLinks) Then
            For i = LBound(WorkbookLinks) To UBound(WorkbookLinks)
                Wb.BreakLink _
                        Name:=WorkbookLinks(i), _
                        Type:=xlLinkTypeExcelLinks
            Next i
        Else
        End If
End Sub