Jenny,
You could add this UDF (Alt-F11, menu Insert>Module, and then copy it in )
Public Function GetURL(rng As Range)
If rng.Count = 1 Then
GetURL = rng.Hyperlinks(1).Address
End If
End Function
and use it in B1 as =GetURL(A1) and copy down

Signature
HTH
RP
(remove nothere from the email address if mailing direct)
> Hello - Newbie question:
>
[quoted text clipped - 12 lines]
> (Rotterdam the Netherlands)
> remove the squirrel to reply
JennyC - 29 Dec 2005 19:33 GMT
Right!
Sounds a bit like abracadabra but I shall try it next year when I get back in
the office :~))
Thanks Jenny
> Jenny,
>
[quoted text clipped - 33 lines]
> > (Rotterdam the Netherlands)
> > remove the squirrel to reply
JennyC - 02 Jan 2006 17:37 GMT
Bob
A million thanks - works a treat :~))
Maybe I'll have to think about learning VB.........!
Jenny
> Jenny,
>
[quoted text clipped - 33 lines]
> > (Rotterdam the Netherlands)
> > remove the squirrel to reply