BreakLinks method doesn't work.
 

I've got 2 excel workbooks - lets call them "Data" and "Control" - and
try to break all external links in the Data file from within the
Control file. In the Control file I've created following a function:

Private Function BreakLinks()
aLinks = Workbooks("Data.xls").LinkSources(xlLinkTypeExcelL inks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
Workbooks("Data.xls").BreakLink(aLinks(i), xlLinkTypeExcelLinks)
Next i
End If
End Function

This code produces the error message: "Compile error, Expected: =".
When I changed that line to
Workbooks("Data.xls").BreakLink Name:=aLinks(i),
Type:=xlLinkTypeExcelLinks
the compiler didn't report an error, however when I try to execute the
code it comes up with the error: run-time error'1004', Method
'BreakLink' of object '_Workbook' failed"

Any idea what in either case the problem could be?

Thanks in advance...


--
Gop
------------------------------------------------------------------------
Gop's Profile: http://www.excelforum.com/member.php...o&userid=26872
View this thread: http://www.excelforum.com/showthread...hreadid=401093