Schleife?

Sub VerknüpfungEntfernen()
'
' VerknüpfungEntfernen Makro
' Externe Verknüpfungen entfernen
'
'Variablen dimensionieren
Dim zelle As Range

'Alle Zellen nach den Zeichen "=" und "["durchsuchen
For Each zelle In Worksheets(1).UsedRange
If Left(zelle.Formula, 1) = "=" And InStr(zelle.Formula, "[") > 1 Then
zelle.Value = zelle.Value
End If
Next zelle
End Sub