Function SetCellCloseBook(sWb As String, sShName As String, sAddress As String, sCell As String)
Static esc As Boolean
    If esc Then Exit Function
    On Error GoTo 1
    esc = True
    Dim objCloseBook As Object
    Set objCloseBook = GetObject(sWb)
    objCloseBook.Sheets(sShName).Range(sAddress).Value = Range(sCell).Value
    objCloseBook.Save
    SetCellCloseBook = "OK"
2:  esc = False
    Exit Function
1:  SetCellCloseBook = "Error"
    Resume 2
End Function

Function SetCellCloseBook(sWb As String, sShName As String, sAddress As String, sCell As String)
End Function
    Dim objCloseBook As Object
    Set objCloseBook = GetObject(sWb)
    objCloseBook.Sheets(sShName).Range(sAddress).Value = Range(sCell).Value
    objCloseBook.Save
    SetCellCloseBook = "OK"
End Function

Function Get_Value_From_Close_Book(sWb As String, sShName As String, sAddress As String)
    Dim vData, objCloseBook As Object
    Set objCloseBook = GetObject(sWb)
    'получаем значение
    vData = objCloseBook.Sheets(sShName).Range(sAddress).Value
    objCloseBook.Close False
    'Возвращаем данные в ячейку с функцией
    If IsArray(vData) Then
        Get_Value_From_Close_Book = vData
    Else
        Get_Value_From_Close_Book = vData
    End If
End F unction