Hyperlink-Programable replacement of Text with Its Actual Address

[Guest]

I have a large number of hyperlinks previousely created in worksheets in a
form the text to display is always different from its actual address. Now I
am looking for a 'programable' way to replace all the text to display with
their actual addresses, rather than manually change it one at a time by
editting the hyperlinks using GUI. Your knowledge and experience will be
greatly appreciated. Thanks you very much.

 

[Dave Peterson]

A little macro ok?

Option Explicit
Sub testme()
Dim wks As Worksheet
Dim myHyper As Hyperlink

Set wks = Worksheets("sheet1")
For Each myHyper In wks.Hyperlinks
myHyper.Parent.Value = myHyper.Address
Next myHyper
End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[Guest]

Yes. That's what I am looking for. Thank you very much.