Hi Tom,
Such was my faith, I posted before trying :-)

Dim cell as Range
for each cell in selection
if cell.Hyperlinks.count 1 then
cell.offset(0,1).Value = cell.hyperlinks(1).Address
end if
Next

Apparently, my cells don't have a Hyperlinks.Count 1
??
regards,
Don