copying hyperlinks problems

**hopefulhart** · 02-13-2014, 08:51 PM

Hello.

I have a folder (:C/Documents/Main) that contains 3 more folders (folders A, B, & C containing excel files) and several other individual excel files. On one of the excel files in the Main folder i have hyperlinks set up to the files in folder C. The hyperlink path reads as

:C/Documents/Main/folderC/excelfile.xlsm.

I want to copy that hyperlink from the file in the Main folder to a file in folder A, but when I do the hyperlink path changes to

:C/Documents/Main/folderA/folderC/excelfile.xlsm.

Why does it do this, and is there a way to correct this action? I have many hyperlinks to set up and I would prefer to copy and paste them instead of have to do each one individually again.

Thanks

**tony h** · 02-14-2014, 04:30 PM

I am not sure why this is happening but you could try Listing all the current hyperlinks make any changes and then another routine to add them.

Sub AddHyp()
'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="lv2\excelfile.xlsm", TextToDisplay:="lv2\excelfile.xlsm"
End Sub

Sub ListHyp()
    Dim hyp As Hyperlink
    For Each hyp In ActiveSheet.Hyperlinks()
        Debug.Print hyp.Address, hyp.TextToDisplay
    Next
End Sub

The code here givesyou the main bits. You will need to change ListHyp to put the list somewhere useful and the add to read the data from that place.