Breaking links

[MARKEGANDERSON]

Hello All-

I tried everything on breaking a link that is attached to my workbook, to no avail.

Edit links, break link.

Any other suggestions?

 

[pagrender]

It might be a named range. I've had that issue before and it was because of a named range.

 

[VoG]

This may help you http://j-walk.com/ss/excel/usertips/tip054.htm

 

[MARKEGANDERSON]

Thanks guys I tried all the steps in that VoG sent in.

how do you fix the name range?

 

[Biz]

Try code below

Sub BreakLinks()
    Dim aLinksArray As Variant
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    
    
    aLinksArray = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    
    Do Until IsEmpty(aLinksArray)
        ActiveWorkbook.BreakLink Name:=aLinksArray(1), Type:=xlLinkTypeExcelLinks
        aLinksArray = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    Loop
    
     Application.ScreenUpdating = True
     Application.DisplayAlerts = True
     Application.Calculation = xlCalculationAutomatic
End Sub

Biz