Is there any VBA code to break the external and Internal links

Hellol friends,

I have excel workbook which contains many worksheets.

Each sheet contains internal and external formula links.

Is there any VBA code which can break the following links of the selected worksheets.
1. External links since the file is protected and can not break the links by edit links -> break links.
2. Internal links of other worksheets.

Please assist.

The below mentioned code is for only Break External links

Sub BExternalLinks()

Dim ExternalLinks As Variant
Dim wb As Workbook
Dim x As Long

Set wb = ActiveWorkbook


ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)


For x = 1 To UBound(ExternalLinks)
wb.BreakLink name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks
Next x

End Sub

Dear Chandy,

Thanks. But its not serving my purpose.
VBA breaks links in the whole workbook. I need to remove the link in a particular worksheet.

Please assist.

Hi lalaarif1,

Few years late but here is some solution.
There is no standard function like sheet.breaklinks. You could either move the sheet to a new workbook, break links and move it back or protect the other sheets.
Here is a script to do the latter. You can paste it and it will work. Just set yourworkbook and yoursheet to what you want.

Please Login or Register  to view this content.