Home » Blogs » Vishesh's blog

Break External Links with other workbooks

Vishesh's picture
Submitted by Vishesh on 29 January, 2011 - 20:37

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
»