Remove hyperlinks

[Graham H]

I have downloaded a lot of text from a site and most of it is in hyperlinks, but I just
want the text. Is there a quick way to remove all the hyperlinks in a worksheet or
workbook. I appreciate I could loop round all the cells but there is a lot of material and
I just wondered if there was something simpler. I would value any help.

Regards
Graham

 

[Norman Jones]

Hi Graham,

Try:

ActiveSheet.Hyperlinks.Delete

 

[NateBuckley]

Sub RemoveHyperLinks()
Dim hlinks As Hyperlinks
Dim hlink As Hyperlink
Set hlinks = Sheet1.Hyperlinks

For Each hlink In hlinks
hlink.Delete
Next hlink

End Sub

There you go grab the hyperlinks collection from Sheet1 (change if on
another sheet) and then go through each hyperlink in the collection, deleting
as you go.

Hope this helps!

 

[NateBuckley]

Oops, Norman's way is much better - Only one line and poof! They're all gone.

 

[Graham H]

Thanks for that Norman, I think Nates description of "one line and poof!" sums it up.
Many thanks to both of you.

Graham