extract url from link in column

[dhx10000]

Hi,

I have an excel sheet that contains a column that is a hyperlink. For example, a value may be 'Benefits Document, then when you click on it, it will take you to a URL like 'http://myHumanResourcesServer/directory/Beneifts/benefits.doc'. Is there anyway I can extract this URL? I have another application in which I need to get the filename of each of these documents located at the end of the URL's

thanks,

dhx

 

[Joe Was]

Sub HlinksA()
'List all of the selected hyperlinks properties!
'Note: Select a cell next to the H-Link & use the cursor to slide into its cell.
'Then run this code to show that links properties!
Dim hyp As Hyperlink

Set hyp = Selection.Hyperlinks(1)
MsgBox "Address ==> " & hyp.Address & vbCr & _
"Name ==> " & hyp.Name & vbCr & _
"Parent ==> " & hyp.Parent & vbCr & _
"Creator ==> " & hyp.Creator & vbCr & _
"Text ==> " & hyp.TextToDisplay & vbCr & _
"Application ==> " & hyp.Application.Value

End Sub

 

[dhx10000]

Sub HlinksA()
'List all of the selected hyperlinks properties!
'Note: Select a cell next to the H-Link & use the cursor to slide into its cell.
'Then run this code to show that links properties!
Dim hyp As Hyperlink

Set hyp = Selection.Hyperlinks(1)
MsgBox "Address ==> " & hyp.Address & vbCr & _
"Name ==> " & hyp.Name & vbCr & _
"Parent ==> " & hyp.Parent & vbCr & _
"Creator ==> " & hyp.Creator & vbCr & _
"Text ==> " & hyp.TextToDisplay & vbCr & _
"Application ==> " & hyp.Application.Value

End Sub

thank you very much, this worked great!!!