Use the following code to break the links to external source in Microsoft Excel Workbook
Sub Break_XL_Links()
Dim oXlLinks
oXlLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
MsgBox UBound(oXlLinks)
For i = 1 To UBound(oXlLinks)
MsgBox oXlLinks(i)
Next i
ActiveWorkbook.Breaklink Name:=oXlLinks(1), Type:=xlLinkTypeExcelLinks
End Sub
Showing posts with label Excel VBA breaking links. Show all posts
Showing posts with label Excel VBA breaking links. Show all posts
Friday, December 08, 2006
Subscribe to:
Posts (Atom)
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.
Posts
