VBA: Break All External Links in a Workbook

Here's a tip how to break all external links from a workbook:



Sub BreakAllLinks()


    Dim arrStrLinks As Variant
    
    ' Read workbook links to an array.
    arrStrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    
    ' Loop through whole array -> all links.
    For i = 1 To UBound(arrStrLinks)
        ActiveWorkbook.BreakLink _
        Name:=arrStrLinks(i), _
        Type:=xlLinkTypeExcelLinks
    Next i


End Sub


This is actually a slightly modified version of the one you can find from Excel's help with keyword BreakLinks.