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