Проблема сохранения больших массивов на лист

[Aent]

Мне нужно обработать данные в ранге из примерно 60000 ячеек.
Я читаю их в массив обрабатываю и сохраняю обратно

.....
'iLastRow = 60000
'iCol = 2
Set r = .Range(.Cells(2, iCol), .Cells(iLastRow, iCol))
ReDim AA(1 To r.Rows.Count, 1)
AA = r.Value
'..............
'Тут полученный массив строк обрабатывается
'регулярными выражениями
'..............
r.Value = AA

Код выполняется в Excel 2003. Размер файла около 190Mb
Cкорость чтения в массив и обработки: 1-2 секунды - устраивает.
Но при сохранении на лист возникает следующий глюк:
Форма с которой запускается этот код на какое то время становится
белой и/или исчезает с экрана. В её заголовке на доли секунды появляется сообщение
Приложение не отвечает. Затем, форма несколько раз перерисовывается со сдвигом. И в конце концов отрисовывается правильно.
Клиент сильно нервничает от этих визуальных эффектов.
Перед приведённым фрагментом выполняется код

    With Application
        .EnableEvents = False
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
    ActiveWorkbook.EnableAutoRecover = False

Если закомментировать r.Value = AA или уменьшить количество строк до
10000 - всё нормально
Я выкрутился обработкой в цикле чтение/запись по 10000 строк.
Есть ли другие идеи ?
Сменить версию Excel или использовать БД не могу по условиям клиента.
OS Windows 7, 4Gb RAM, CPU Intel Core2DUO E8400 @ 3.0 Ghz

[EducatedFool]

Я бы попробовал перед записью массива на лист:

1) включить обновление экрана application.ScreenUpdating = true
или
2) временно скрыть Excel ( application.visible = false)

Кроме того:
3) поискать проблему в своём файле (для проверки удалив из файла всё лишнее, особенно условное форматирование)
4) протестировать код на других компах с Excel2003

Я для проверки сделал пример - при проверке описанный вами эффект не наблюдается
(вы обрабатываете только один столбец - 60000 ячеек, или несколько столбцов - 60000*N ячеек?)

Форма с которой запускается этот код на какое то время становится
белой и/или исчезает с экрана. В её заголовке на доли секунды появляется сообщение
Приложение не отвечает. Затем, форма несколько раз перерисовывается со сдвигом. И в конце концов отрисовывается правильно.

Много раз делал подобный код - с такими же объёмами данных.
Такой проблемы не встречал. (WinXP_32bit, Excel2003)

[Aent]

Спасибо, Игорь.
На Вашем файле эффект не проявляется. Но мой размером ~180Mb
Обрабатываю я один столбец. Условного форматирования нет. Помимо обрабатываемого в файле ещё 5 столбцов с данными.

Эффект воспроизводим на разных компах/OS.
По всей видимости эффект проявляется только на больших файлах.

В итоге: Помогло указание Application.Visible = False
Ещё раз - большое спасибо.