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

On Tue, 25 May 2010 08:04:01 -0700, ToBeFree71
wrote:

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