Break links from other workbooks

I've used this code to break links from other workbooks. From:
https://www.extendoffice.com/documen...all-links.html

It has worked before (on a different computer) but not anymore.

Is there something else possible?

Sub BreakLinks()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
    For Each link In wb.LinkSources(xlExcelLinks)
        wb.BreakLink link, xlLinkTypeExcelLinks
    Next link
End If
End Sub