How can I remove ALL hyperlinks in a document in Excel 2003?

[ToBeFree71]

I would like to Remove ALL hyperlinks instead of one by one in Excel 2003

 

[Gord Dibben]

Sub DeleteHyperlinks()
Dim Cell As Range
For Each Cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
With ActiveSheet
.Hyperlinks.Delete
End With
Next Cell
End Sub


Gord Dibben MS Excel MVP

 

[Dave Peterson]

You don't need the loop.

Sub DeleteHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub

This will get rid of the Insert|Hyperlink version.