Всем доброе время суток!

В макросе одна за другой открываются две книги Excel.

Set wb1 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга1")
Set wb2 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга2")

Первая книга используется в качестве базы данных. Данные первой книги применяются во второй книге.

В таком открытии двух книг заметно мерцание на экране перной книги.

Вопрос – возможно ли при открытии двух книг подряд избавится от мерцания первой откривающейся книги. Тоесть первая книга должна откриваться, но не должна быть активной даже на мгновение. И если возможно то как?

Например, так не проходит.

Application.ScreenUpdating = False ' Отключаем “мерцание” окна
Set wb1 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга1")
Application.ScreenUpdating = True ' Возвращаем режим обновления экрана при изменении
ThisWorkbook.Activate ' Возвращаем указатель текущего приложения (для избежания различных глюков)
Set wb2 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга2")

И так не проходит.

Sub Макрос_Щелкнуть()
Dim База As Excel.Workbook
Dim wb1 As Workbook
Set База = GetObject _
(PathName:="C:\Documents and Settings\Пользователь\Рабочий стол\Книга1.xls")
Set wb1 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга2")
Set База = Nothing
End Sub

Перед открытием второй книги, первая книга “мерцает”.

А так проходит. Большое спасибо!!