remove hyperlinks in a worksheet all in the same time

[Kent]

Dear all,

I have got some hyperlinks in my excel worksheet which may be removed and
replaced by characters one by one. HOw can these hyperlinks be removed all
in the same time?


Thanks you

 

[Gary''s Student]

Try this little macro:

Sub HyperBeGone()
For Each r In ActiveSheet.UsedRange
If r.Hyperlinks.Count > 0 Then
r.Clear
End If
Next
End Sub

 

[Kent]

Thank you Gary, what I need is only to remove the hyperlink, but not delete
the content. Any new idea please?


Kent

 

[Dave Peterson]

select your range to clean
alt-f11 (to see the VBE)
ctrl-g (to see the immediate window)

type this and hit enter
selection.hyperlinks.delete

And then close this window and go back to excel.

 

[Dave Peterson]

I don't think I'd use r.clear.

That'll clean up way more than just the hyperlink.

 

[Kent]

Dear Dave,

I can't follow your instruction starting from "ctrl-g (to see the immediate
window)"
and where should I type "selection.hyperlinks.delete"?

 

[Dave Peterson]

Use alt-f11 to open the VBE.
Hit control-g to see the immediate window
(Or use View|Immediate Window)

type or paste that "selection.hyperlinks.delete" into that immediate window.

 

[Kent]

Thank you Dave, I've done it.

Use alt-f11 to open the VBE.
Hit control-g to see the immediate window
(Or use View|Immediate Window)

type or paste that "selection.hyperlinks.delete" into that immediate
window.