Below BreakLink code download-Please Paste Code in modul
Sub BreakLinks()
Dim iii As Variant
Dim astrLinks As Variant
' Define variable as an Excel link type.
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
' Break the first link in the active workbook.
For iii =...