Hyperlinks nachträglich entfernen

Wie kann ich Hyperlinks aus E-Mail- und Web-Adressen entfernen, wenn Excel sie bereits in der ganzen Tabelle erzeugt hat?

Zwar gibt es im Kontextmenü einer selektierten Zelle im Untermenü „Hyperlink“ die Möglichkeit, die Verknüpfung wieder zu entfernen, doch das funktioniert nicht, wenn Sie mehrere Zellen markieren. Abhilfe schafft folgendes VBA-Makro für Excel ab Version 2000:

Sub HyperlinksLoeschen()
  Selection.Hyperlinks.Delete
End Sub

Um alle Hyperlinks im aktuellen Arbeitsblatt unabhängig davon zu entfernen, ob sie markiert sind oder nicht, hilft ein weiteres Makro:

Sub AlleHyperlinksLoeschen()
Dim HypLink As Hyperlink
  For Each HypLink In ActiveSheet.Hyperlinks
    HypLink.Delete
  Next
End Sub

Beide Makros laufen in Excel ab Version 97. (db) ()