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

G

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
 
D

Dave Peterson

You don't need the loop.

Sub DeleteHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub

This will get rid of the Insert|Hyperlink version.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Does Disabling Macros affect Hyperlinks 1
Maintaining hyperlinks when I move Excel files to another location 1
Maintain hyperlink when moving excel files 1
How do I remove numerous Hyperlinks all at once within a worksheet 3
ADRMS Breaks Excel Hyperlinks (when read only) 1
Open specific hyperlink (accept) automatically in email with outlook 0
Activating hyperlinks 3
Hyperlink failure after saving document 2

Top