Pages

Saturday, April 19, 2014

Break External Workbook Links

Macro to break External Workbook Links -


Sub break_external_links()
    Dim extlinks
    Dim j As Long
    extlinks = ThisWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(extlinks) Then
        For j = LBound(extlinks) To UBound(extlinks)
            ThisWorkbook.BreakLink Name:=extlinks(j), Type:=xlLinkTypeExcelLinks
        Next
    End If
    
    
End Sub

No comments:

Post a Comment