Renaming Hyperlinks

[sjgidman1982]

hi i need some help renaming a lot of hyperlinks

to start i have a list of 1000's of text links (ignore the space http:/ / it's the only way i could display it as text on this post)
e.g
http:/ /www.1.com
http:/ /www.2.com
http:/ /www.3.com

then i used this macro to convert them to hyperlinks

Sub HyperAdd()

    For Each xCell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    Next xCell

End Sub

now i have
http://www.1.com
http://www.2.com
http://www.3.com

but i would like to change them all to
Link
Link
Link

is this possible by just changing my macro slightly?