Usuwanie połączeń z excela Connections.Delete

Znalazłem dwa rozwiązania dla osób które muszą usunąc duża ilość połączeń z pliku excel
For English: Delete all connections from a very large excel file

Sub usun_con()

For i = 1 To ActiveWorkbook.Connections.Count
If ActiveWorkbook.Connections.Count = 0 Then Exit Sub
ActiveWorkbook.Connections.Item(i).Delete
i = i - 1
Next i

End Sub 

i drugie

Sub usun_con()
Dim Sh As Worksheet, xNazwa As Object
Dim xConect As Object


For Each xConect In ActiveWorkbook.Connections
If UCase(xConect.Name) Like "*" Then xConect.Delete
Next xConect

For Each Sh In ActiveWorkbook.Worksheets
For Each xNazwa In Sh.Names
xNazwa.Delete
Next xNazwa
Next Sh

End Sub


Znalazłem tu:
http://www.mrexcel.com/forum/showthread.php?t=381140