The code below removes all hyperlinks in a worksheet.
To remove special types re-enable the commented out lines and amend a
necessary.

Code
-------------------

Sub untested()
' Hyperlink types:
'oHyperlinkInlineShape, msoHyperlinkRange, msoHyperlinkShape.
'---------------------------------------------------------------------------------
For Each h In ActiveSheet.Hyperlink
'If h.Type = "??" Then
h.Delete
'End If
Next
End Sub

-------------------

--
Brian

-----------------------------------------------------------------------
BrianB's Profile: http://www.excelforum.com/member.php...tinfo&userid=5
View this thread: http://www.excelforum.com/showthread.php?threadid=38674