hyperlinks

[stebrownsword]

Hi All,

Quick Question, hopefully easy to answer

On my spreadsheet I've used several hundred hyperlinks....is there a way to display/show where the hyperlinks go (preferably shown in the next column)? I don't want to go to each hyperlink and copy and paste the address

Thanks in advance

 

[Gary McMaster]

Places target address in cell immediately to the right of cell containing the hyperlink.

Hope it helps.

Gary

In a standard module:

Public Sub Test()

Dim oLink As Hyperlink

For Each oLink In ActiveSheet.Hyperlinks
    ActiveSheet.Range(oLink.Parent.Address).Offset(0, 1).Value = oLink.Address
Next oLink

End Sub

 

[stebrownsword]

Thank you very much saved me hours of work