Thema: Alle externen Links löschen

StandardModule: basMain

Sub LinkLoeschen()
   Dim rng As Range
   For Each rng In Worksheets(2).UsedRange.Cells
      If InStr(rng.Formula, "[") > 0 And _
         InStr(rng.Formula, "]") > 0 Then
            rng.ClearContents
        End If
    Next rng
End Sub

Beiträge aus dem Excel-Forum zu den Themen Link und Extern