adresse du lien hypertexte

Bonjour,
j'ai une colonne contenant des liens hypertextes et je voudrais dans la colonne suivante afficher uniquement l'adresse de ces liens.
j'ai trouvé sur le net la fonction suivante mais elle me donne les chemins relatifs alors que je veux les chemins absolus:

Sub Hyperliens()
dim rngCell As range
On Error Resume next
for each rngCell In selection
rngCell.Offset(0, 1).value = rngCell.Hyperlinks(1).address
next rngCell
end Sub

Quelle est la modification que je dois apporter à cette fonction?