Hyperlink Query

[Mike Blackman]

Hi All,

Sorry, manically busy and need your help...

I have hyperlinks in cells, the cells are showing Argentina_BICGantt.mpp for example, is there any way to retrieve the ACTUAL entire path or re-format to the entire path without doing it manually?

 

[jaybee3]

Sub hyperlinks()
Dim ii As Integer
With Sheet
For ii = 1 To .Hyperlinks.Count
.Hyperlinks(ii).Range.Value = .Hyperlinks(ii).Address
Next ii
End With

That will put the actual address in the cells that contain hyperlinks.

 

[Mike Blackman]

Hi Jaybee,

Thanks for that, I've just found this function which has done the job for me.

Function GetAddress(HyperlinkCell As Range)

    GetAddress = Replace _

    (HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")

End Function

 

[jaybee3]

Coolio, whatever works I guess Least your question taught me something too