=ЕСЛИ(Лист1!K2>0;Лист1!K2;Лист2!I2)

Set WB = Workbooks.Open(x, False, , , 376376)  

Sub chTWBLNK()
    
    Dim oFD As FileDialog
    Dim WB As Workbook
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD
        .AllowMultiSelect = True
        .Title = "Выбирите книгу."
        .Filters.Clear
       .Filters.Add "Excel files", "*.xls*"
        .InitialView = msoFileDialogViewDetails 
   If oFD.Show = 0 Then Exit Sub
   For j = 1 To .SelectedItems.Count
        x = .SelectedItems(j)
        WBName = Right(x, Len(x) - InStrRev(x, "\"))
        With Application
            .EnableEvents = False
            .ScreenUpdating = False
            .Visible = False
            .Calculation = xlCalculationManual
            Set WB = Workbooks.Open(x, False, , , 376376)
            If iTWBLnk(WB.Name) = True Then: Exit Sub
            iLinks = Workbooks(WBName).LinkSources(xlExcelLinks)
            If IsArray(iLinks) = True Then
                For Each i In iLinks
                    IName = Right(i, Len(i) - InStrRev(i, "\"))
                    yName = IIf(InStrRev(IName, "."), Left$(IName, InStrRev(IName, ".") - 1), IName)
                    If yName = "OOPROMPO" Then WB.ChangeLink IName, _
                        NewName:=Replace(Application.UserLibraryPath & "\", "\\", "\") & "OOPROMPO.xla", Type:=xlExcelLinks
                Next

                WB.Save
                WB.Close
                Call MsgBox("Связи обновлены!", vbOKOnly + vbInformation, ""): Exit Sub
            End If
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    Next
    End With
End Sub

Public Function iTWBLnk(wbName) As Boolean
    iLinks = Workbooks(wbName).LinkSources(xlExcelLinks)
    If IsArray(iLinks) = True Then
        For Each i In iLinks
            If i = Replace(Application.UserLibraryPath & "\", "\\", "\") & "OOPROMPO.xla" Then iTWBLnk = True: Exit For
        Next
    End If
End Function

Sub chTWBLNK()     Dim InstFold As String 
    Dim oFD As FileDialog 
    Dim WB As Workbooks 
    InstFold = Replace(Application.UserLibraryPath & "\", "\\", "\") 
    Set oFD = Application.FileDialog(msoFileDialogFilePicker) 
    With oFD 
        .AllowMultiSelect = False 
        .Title = "Выбирите книгу." 
        .Filters.Clear 
        .Filters.Add "Excel files", "*.xls*" 
        .InitialView = msoFileDialogViewDetails 
    If oFD.Show = 0 Then Exit Sub 
    For j = 1 To .SelectedItems.Count 
        x = .SelectedItems(j) 
        WBName = Right(x, Len(x) - InStrRev(x, "\")) 
        With Application 
            .EnableEvents = False 
            .ScreenUpdating = False 
            .Visible = False 
            .Calculation = xlCalculationManual 
'            Set WB = CreateObject(x) 
            Workbooks.Open Filename:=x, UpdateLinks:=True, Password:=376376 
            iLinks = Workbooks(WBName).LinkSources(xlExcelLinks) 
            If IsArray(iLinks) = True Then 
                For Each i In iLinks 
                    IName = Right(i, Len(i) - InStrRev(i, "\")) 
                    yName = IIf(InStrRev(IName, "."), Left$(IName, InStrRev(IName, ".") - 1), IName) 
                    If yName = "OOPROMPO" Then WB(WBName).ChangeLink IName, _ 
                        NewName:=Replace(Application.UserLibraryPath & "\", "\\", "\") & "OOPROMPO.xla", Type:=xlExcelLinks 
                Next 
                Call MsgBox("Связи обновлены!", vbOKOnly + vbInformation, ""): Exit Sub 
            End If 
            .EnableEvents = True 
            .ScreenUpdating = True 
        End With 
'        WB.Windows(1).Visible = False 
        Workbooks(WBName).Save 
        Workbooks(WBName).Close 
    Next 
    End With 
End Sub

WB(WBName).ChangeLink IName, _ 
                        NewName:=Replace(Application.UserLibraryPath & "\", "\\", "\") & "OOPROMPO.xla", Type:=xlExcelLinks

Function iTWBLnk(wbName) As Boolean
    iLinks = Workbooks(wbName).LinkSources(xlExcelLinks) 'ActiveWorkbook.LinkSources(xlExcelLinks)
    If IsArray(iLinks) = True Then
        For Each i In iLinks 'Workbooks(wbName).LinkSources(xlExcelLinks)
            If i = Replace(Application.UserLibraryPath & "\", "\\", "\") & "OOPROMPO.xla" Then iTWBLnk = True: Exit For
        Next
    End If

End Function