excelマクロですべてのハイパーリンク解除したい

質問

excel2016で、ワークシート内のハイパーリンクをすべて解除したいと思います。

すべて削除するマクロは
Sub Sample()
　With ThisWorkbook.Worksheets("Sheet1")
　　.Hyperlinks.Delete 'ハイパーリンク削除
　End With
End Sub
なのですが、これを解除の命令に変えて
Sub Sample()
　With ThisWorkbook.Worksheets("Sheet1")
　.ClearHyperlinks 'ハイパーリンク解除
　.Font.Underline = False '文字のアンダーライン解除
　.Font.ColorIndex = xlAutomatic '文字色を自動設定
　End With
End Sub
とするとエラーになってしまいます。
どのようにすれば良いでしょうか？

回答No.1

kkkkkm · ベストアンサー

以下のようにしたらどうでしょう。
Sub Sample()
With ThisWorkbook.Worksheets("Sheet1")
.Cells.ClearHyperlinks 'ハイパーリンク解除
.Cells.Font.Underline = False '文字のアンダーライン解除
.Cells.Font.ColorIndex = xlAutomatic '文字色を自動設定
End With
End Sub

お礼

素晴らしい。\(^_^)／

たったこれだけでできるとは。
目から鱗です。

ありがとうございました。

回答No.2

Nobu-W

Sub Sample()
Worksheets("Sheet1").Hyperlinks.Delete
End Sub
これで・・・できないかな？　＞＜
未確認の為、試してみて下さい　m(_ _)m