RemoveLink_01.bas

Sub RemoveLink_01() 'Excel VBA remove links from workbook.
Dim ar As Variant
Dim i As Integer

ar=ActiveWorkbook.LinkSources(1) 

On Error Resume Next 'Bỏ qua các lỗi có thể xảy ra

For i = 1 To UBound(ar) 'Thực  hiện vòng lặp xét các liên kết
  ActiveWorkbook.BreakLink ar(i), xlLinkTypeExcelLinks
Next i

On Error GoTo 0   'Đưa cơ chế bẫy lỗi về dạng mặc định

End Sub