Копирование книги Excel

[Kostik]

Задача такая
есть две книги.
нужно из одной в другую скопировать данные.
В принципе все просто:
Do
Workbooks("1").Activate
ActiveCell.Copy
OffSet
Workbooks("2").Activate
ActiveCell.PasteSpecial
OffSet
Loop
Но, мерцание книг достает.
Как с этим бороться?
ЗЫ: Копировать нужно именно по одной ячейке

[corgi]

Application.ScreenUpdating = False' выключить обновление листа
только не забудь потом включить
Application.ScreenUpdating = True

[Kostik]

Application.ScreenUpdating = False' выключить обновление листа
только не забудь потом включить
Application.ScreenUpdating = True

Спасибо