extract links from sheet?

[falfuly]

Hello,

I have an excel sheet that contains 300 entries .
Each entry is a name ‎of a website (that links to the website).

In order to create a Google Custom ‎Search Engine, <b>I need to copy only the links</b> and paste them into the ‎configuration panel of the search engine.

The problem is that when I copy the ‎entries, I can only paste the captions of the links, not the links themselves. ‎

Any solutions?

Thanks a lot! Eyal. ‎

 

[nirvana_]

Try this.

Assumes all hyperlinks are on sheet1.

Creates a new sheet called hyperlinks and puts all the urls into it.

Sub GetAddresses()
    Dim i As Integer
    Dim WS As Worksheet
    Set WS = Worksheets.Add
    WS.Name = "Hyperlinks"
    If Sheets("Sheet1").Hyperlinks.Count >= 1 Then
        For i = 1 To Sheets("Sheet1").Hyperlinks.Count
            WS.Cells(i, 1).Value = Sheets("Sheet1").Hyperlinks(i).Address
        Next
    End If
End Sub

 

[falfuly]

It worked perfect, thanks a lot!