Hi there,
The LinkSources method returns an array of links so then it's just a matter
of stepping backwards through each one and deleting them. I'm not sure if
there's a method to delete the "links collection" (can anyone enlighten
me?). Anyway, this seems to do the job.
Best regards
John
Sub BreakAllWorkbookLinks()
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks) Step -1
Debug.Print aLinks(i)
Application.ActiveWorkbook.BreakLink _
Name:=aLinks(i), _
Type:=xlLinkTypeExcelLinks
Next i
End If
End Sub
"striker72s" <striker72s.1rdnry@ wrote in message
...
Hello,
IV been trying to break links in excel workbooks by VBA
But I wanted to know how to break all the links in the workbooks, not
just one single link
ActiveWorkbook.BreakLink Name:= _
"\\excel\Portfolios\sample.xls" _
, Type:=xlExcelLinks
This code breaks single link, but is there a code to break them all.
Thanks in advance
--
striker72sPosted from http://www.pcreview.co.uk/ newsgroup access