ExcelVBA删除单元格超链接

Sub hyperlinkdelete()
Range('H1').Select
For I = 1 To 100
Selection.Hyperlinks.Delete
ActiveCell.Offset(1, 0).Select '活动单元格向下移动一格
Next
End Sub
==================================================================
Sub hyperlinkdelete()
ActiveSheet.Hyperlinks.Delete
End Sub