​Sub BreakAllLinks()
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .Calculation = xlCalculationManual
    End With
    
        Dim aLinksArray As Variant
        Dim bLinksArray As Variant
        
        aLinksArray = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
        bLinksArray = ActiveWorkbook.LinkSources(Type:=xlLinkTypeOLELinks)
    
        Do Until IsEmpty(aLinksArray)
            ActiveWorkbook.BreakLink name:=aLinksArray(1), Type:=xlLinkTypeExcelLinks
            aLinksArray = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
        Loop
    
        Do Until IsEmpty(bLinksArray)
            ActiveWorkbook.BreakLink name:=bLinksArray(1), Type:=xlLinkTypeOLELinks
            bLinksArray = ActiveWorkbook.LinkSources(Type:=xlLinkTypeOLELinks)
        Loop
        
      Set aLinksArray = Nothing
      Set bLinksArray = Nothing
    
     With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub