Change source: 1 wkbk with 8 links to different sheets now moved to new locations.

[jango11965]

My workbooks have been freezing so I move a few larger sheets to different and sometimes new workbooks. Some links assumed the new location path. Howeve in other wkbk now cannot change source for each of my 8 links from old to new location path. Currently remember old path.
When I highlight 1 sheet in the link list and change source to new location all links to other sheets that did not require changing to that sheet assumed path of first change also changed source(to 1st new location selected).
Ques therefore is, can I change source for each of 8 links in one workbook to 8 new individual Locations?

 

[ranman256]

mass change the hyperlinks to the new paths.

Sub RemapLinks()
Dim vCell, vDir


vDir = "C:\Users\1029\Documents\New folder"


Range("B2").Select
While ActiveCell.Value <> ""
   If ActiveCell.Formula <> "" Then
       Debug.Print ActiveCell.FormulaR1C1
       'Debug.Print ActiveCell.Formula
       vCell = Mid(ActiveCell.Formula, InStrRev(ActiveCell.Formula, "\"))
       
       ActiveCell.Formula = "='" & vDir & vCell
   End If
   
   ActiveCell.Offset(1, 0).Select  'next row
Wend
End Sub

 

[jango11965]

So happy a solution is possible, thanks. I am including a scenario to better explain issue to know if code will fix.
All old and new wkbk are in the same folder. I moved multiple sheets to 3 new wkbk in same folder.
One old wkbk has links on multiple lines that need to point to new sheets now in different wkbks for hundred of cells because the current path points to valid wkbk but sheet is in new wkbk.