RemoveLink_02.bas

Sub RemoveLink_02() 'Excel VBA remove validation links from workbook.
Dim r As Range
Dim str As String
Dim sh As Worksheet
Dim ws As Worksheet

Set ws = ActiveSheet 
Set sh = Sheets.Add 
sh.Name = "ExternalLK" 
      
For Each r In ws.UsedRange.Cells 
  On Error Resume Next  'Gặp lỗi thì bỏ qua
    str = ""        'Đưa biến về giá trị rỗng để về dạng mặc định
    str = r.Validation.Formula1   'Xét chuỗi trong các công thức
    On Error GoTo 0     'Đưa cơ chế bẫy lỗi về mặc định

    If InStr(1, str, "]") > 0 Then  'Xét toàn bộ các dòng trong bảng và bỏ qua chuỗi nào có gắn với dấu ngoặc vuông
    sh.Range("A65536").End(xlUp)(2) = r.Address & " " & r.Validation.Formula1
  End If 
Next r 

End Sub