Sub Get_Value_From_Close_Book()

    Application.OnTime Now + TimeSerial(0, 0, 30), "Get_Value_From_Close_Book"

    Dim sShName As String, sAddress As String, vData

    'Отключаем обновление экрана

    Application.ScreenUpdating = False

    Workbooks.Open "C:\Users\1ukom.xlsm" '" , ReadOnly:=True

    sAddress = "A1:O2000" 'или одна ячейка - "A1"

    'получаем значение

    vData = Sheets("Лист1").Range(sAddress).Value

    ActiveWorkbook.Close False

    'Записываем данные на активный лист книги,

    'с которой запустили макрос

    If IsArray(vData) Then

        [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

    Else

        [A1] = vData

    End If

    'Включаем обновление экрана

    Application.ScreenUpdating = True

End Sub