ハイパーリンクの削除について

いつもお世話になります。
OSはwin11,エクセルはOffice365です・

下記に参考のコードがあります。
このコードではハイパーリンクは削除はされます。
がしかしテキストは残ります。

このような内容を下記のコードに追加しましたが
うまくいきません。
Range("M1:M17").Select
Selection.Clear
Range("A1").Select

ご指導を仰ぎたいのはハイパーリンクとテキストの両方が削除されるようにしたいです。

参考
Sub リンク削除()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Hyperlinks.Delete
Next
End Sub

質問者からの補足コメント

• 

  ありがとうございます。
  折角ご指導をいただいたのですが、
  　ハイパーリンクは解除
  　テキストは未解除
  です。
  
  再度ご指導いただけませんか。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/11/10 10:35

No.2 ベストアンサー 回答者： bonaron 回答日時： 2022/11/10 14:52

ハイパーリンクの場所は決まっていない

ということだったのかな。

Sub リンク削除()
Dim ws As Worksheet
Dim hp As Hyperlink
For Each ws In Worksheets
　　For Each hp In ws.Hyperlinks
　　　　hp.Parent.Clear
　　Next
Next
End Sub

この回答へのお礼

ありがとうございます。
お陰様で上手くできました。

お礼日時：2022/11/10 15:20

No.1 回答者： bonaron 回答日時： 2022/11/10 10:12

Sub リンク削除()

Dim ws As Worksheet
For Each ws In Worksheets
　　ws.Hyperlinks.Delete
　　ws.Range("M1:M17").Clear
Next
End Sub

とか。