Break all links in the workbook

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

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
news:ru-dndij6fNHzV_fRVn_vg@giganews.com...
>
> 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
>