That does seen simpler, however, it is not removing the hyperlink. It
simply sets the hyperlink to null.
It still looks and acts like a hyperlink. I guess I need to change the font
color and take off the underline, however how do I stop the mouse-over from
still reacting to it as a hyperlink (mouse changes and the balloon shows the
null link).


"Claus Busch" wrote in message
...
Hi,

Am Mon, 25 Feb 2013 14:00:40 -0600 schrieb JCO:

I have many workbooks and sheets that I need to remove the hyperlinks
from.
When doing the code below, it removes all formatting.

remove only hyperlink address:

Sub Test()
Dim hyp As Hyperlink

With ActiveSheet
For Each hyp In .Hyperlinks
hyp.Address = ""
Next
End With
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2