[RESOLVED] [Excel 2010 VBA] activeworkbook.breaklink

[fuzzbug]

I need help getting activeworkbook.breaklink to work.

I am trying to write a piece of VBA which breaks all the links in workbook (all the links are to a MS-SQL database).

This code:

Dim objWBConnect As Object
For Each objWBConnect In ActiveWorkbook.Connections
    ActiveWorkbook.BreakLink objWBConnect.Name, objWBConnect.Type
Next objWBConnect

Produces the error message:
Method BreakLink of object '_Workbook' failed

Note that objWBConnect.Name & objWBConnect.Type contain valid values (Adjustments & 1 respectively)

[fuzzbug]

Solved it myself!

This works:

Dim objWBConnect As Object
For Each objWBConnect In ActiveWorkbook.Connections
    ActiveWorkbook.Connections(objWBConnect.Name).Delete
Next objWBConnect

[MarMan]

Excellent, nice job!! Since you resolved your issue can you please mark your thread RESOLVED.