Break Link Vba Code in excel

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 = 1 To UBound(astrLinks)

   
    ActiveWorkbook.BreakLink _
        Name:=astrLinks(iii), _
        Type:=xlLinkTypeExcelLinks
Next iii
End Sub