hi
you didn't say how many hyperlinks you had, only refered to "a few" so i did
some guessing. bad guessing it seems.
try this
Sub selecthyper()
For Each c In Range("c3:C14") ' adjust range to suit.
If c.Hyperlinks.Count < 0 Then
c.Value = c.Hyperlinks(1).Address
End If
Next c
End Sub

regards
FSt1

"Gmata" wrote:

THanks!
It works!

But i have hundreds of Hyperlinks and it will take me alot of time to do one
by one, is there any chance to do that for all the selected cells containing
Hyperlinks?

Gonzalo

"FSt1" wrote:

hi
this works in 2003. place the cursor on the hyperlink and run the macro. put
the macro in a standard module. it will replace whatever is in the cell with
the URL. it will keep the hyperlink.
Sub hypertourl()
ActiveCell.Value = _
ActiveCell.Hyperlinks(1).Address
End Sub

regards
FSt1

"Gmata" wrote:

Hello, I have a few fields with hyperlinks on a spread sheet.

Is there any way to create a Macro or something to convert those Hyperlinks
into URLS.

Thanks

Gonzalo