Koppelingen verbreken met Macro

[Rusty1979]

Graag zou ik willen weten hoe je koppelingen in Excel verbreekt met behulp van een macro.

Als ik een macro opneem en koppelingen verbreek via het menu Bewerken, dan krijg ik in de macro de bestandsnaam te staan en dat is niet handig als het externe bestand steeds anders is.

 

[Warme bakkertje]

Sub BreakLinks()
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        With ws.UsedRange
            .Value = .Value
        End With
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[MauriceSmit]

*Googled*

Option Explicit
Sub UseBreakLink2()

Dim astrLinks As Variant
Dim iCtr As Long

astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsArray(astrLinks) Then
For iCtr = LBound(astrLinks) To UBound(astrLinks)
ActiveWorkbook.BreakLink Name:=astrLinks(iCtr), _
Type:=xlLinkTypeExcelLinks
Next iCtr
End If

End Sub

*voor externe datalinks ^^