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 ActiveWorkbook.Breaklink. Show all posts
Showing posts with label ActiveWorkbook.Breaklink. 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
