='C:\Users\AGusev\Моя\Стереть\[price2.xlsx]Лист1'!B4

Sub UpdateLinks()
    Dim FilesToOpen
    Dim x As Integer
    'pass = InputBox("Ââåäèòå ïàðîëü")
    
    
    Application.ScreenUpdating = False  'îòêëþ÷àåì îáíîâëåíèå ýêðàíà äëÿ ñêîðîñòè
     
    'âûçûâàåì äèàëîã âûáîðà ôàéëîâ äëÿ èìïîðòà
    ChDir ThisWorkbook.Path
    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge") '.OpenPath = "C:\"

    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Íå âûáðàíî íè îäíîãî ôàéëà!"
        Exit Sub
    End If
     
    'ïðîõîäèì ïî âñåì âûáðàííûì ôàéëàì
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
        
        Dim aL(), i&, s
        aL = importWB.LinkSources(xlExcelLinks)
        If IsEmpty(aL) Then Exit Sub
        For i = 1 To UBound(aL)
            s = Split(aL(i), "\")
            Application.StatusBar = FilesToOpen(x) + " - " + s(UBound(s))
            importWB.ChangeLink aL(i), importWB.Path & "\" & s(UBound(s)), 1
            importWB.UpdateLink Name:=importWB.Path & "\" & s(UBound(s)), Type:=xlExcelLinks
        Next
        importWB.RefreshAll
        importWB.Close savechanges:=True
        x = x + 1
    Wend

    Application.ScreenUpdating = True
    MsgBox "Ïðîöåññ îáíîâëåíèÿ óñïåøíî çàâåðøåí!"
    
    
    
    
    
    
End Sub