Break External Links with other workbooks

Vishesh's picture

At times you come across the this dialog box when you open an Excel workbook. To get rid of this you can run a small piece of code just once. This code would break all links.

External Links Exist


Sub TestRun()
    Call BreakExternalXLLinks(ThisWorkbook)
End Sub
Sub BreakExternalXLLinks(wbk As Workbook)
    Dim strLinks As Variant
    Dim intLoop As Integer
    strLinks = wbk.LinkSources(Type:=xlLinkTypeExcelLinks)
    If IsEmpty(strLinks) Then
        MsgBox "No external link found.", vbInformation, "Excel Expert Utility"
        Exit Sub
    End If
    For intLoop = 1 To UBound(strLinks)
        wbk.BreakLink strLinks(intLoop), xlLinkTypeExcelLinks
    Next intLoop
    Erase strLinks
End Sub