Why, that should retain the text.

or just
Activesheet.Hyperlinks.delete

I believe will also do it.

--
Regards,
Tom Ogilvy

"Norman Jones" wrote in message
...
Hi Gary,

Please ignore my suggestion.

I missed the OP's requirement to *retain* the text!

My apologies.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in
message
...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell,
while
retaining the cell text content?

Thanks,

Keith