Hyperlinks löschen

In einer großen Tabelle sind recht viele Hyperlinks,
die nun auf schnelle Art und Weise gelöscht werden sollen. 
Sub Hyperlinks_löschen()
   For x = 1 To ActiveSheet.Hyperlinks.Count
      Set Zelle = ActiveSheet.Hyperlinks(x).Range
      Zelle.Delete
   Next x
End Sub