значение ячейки из ЗАКРЫТОГО Exc

Private Function GetValue(path, file, sheet, ref)
    ' Функция возвращает значение ячейки с адресом ref c листа sheet из ЗАКРЫТОГО Excel-файла
    Dim arg As String

    If Right(path, 1) <> "\" Then path = path & "\"

    If Dir(path & file) = "" Then GetValue = "Файл не найден": Exit Function

    arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)

    GetValue = ExecuteExcel4Macro(arg)
End Function