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