Macro to show hyperlink address as hyperlink text

[Greemo]

Hello,

I have a line of code that takes the hyperlinks address and shows it as the hyperlink text:

selection.Hyperlinks(1).texttodisplay = Selection.Hyperlinks(1).Address

How can I create a macro that will do this for every hyperlink that may exist in a specified range? Do I have to use looping?

Thank you,

Greemo

 

[John_w]

    Dim h As Hyperlink
    For Each h In Range("D1:D10").Hyperlinks
        h.TextToDisplay = h.Address
    Next