Hi Shani

Use this

Dim hlink As Hyperlink
For Each hlink In Columns("A").Hyperlinks
hlink.Parent.Offset(0, 1).Value = hlink.Address
Next


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Shani" wrote in message oups.com...
In column A there a bunch of cells
I want to extract all the hyperlinks associated with the cells in
column A into Column B

for example
A1=axyfsk hyperlink=http://www.fasdfasdfasfsdfafd.com
I want B1=hyperlink=http://www.fasdfasdfasfsdfafd.com