Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "I1" Then
        On Error Resume Next
        ad_ = Range(Range("I1")).Address(, , xlR1C1)
        If Err Then Exit Sub
        On Error GoTo 0
        sh_ = "Ведомость"
        n_ = Cells(Rows.Count, 2).End(3).Row - 1
        ar = Cells(2, 6).Resize(n_)
        arf = Cells(2, 1).Resize(n_, 2)
        For i = 1 To n_
            If Dir(arf(i, 2)) = "" Then
                ar(i, 1) = ""
            Else
                put_ = "'" & Left(arf(i, 2), InStrRev(arf(i, 2), "\")) & "[" & arf(i, 1) & "]" & sh_ & "'!" & ad_
                ar(i, 1) = ExecuteExcel4Macro(put_)
            End If
        Next i
        Cells(2, 6).Resize(n_) = ar
    End If
End Sub