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

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

You don't need the loop.

Sub DeleteHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub

This will get rid of the Insert|Hyperlink version.

Gord Dibben wrote:

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

--

Dave Peterson