Выполнение Paste Special в Excel (VBA)

[Anonymous]

В Excel открыто два окна одной рабочей книги.
В первом  окне активен Лист1, а на втором Лист2.
Выполняем макрос:
    Windows("Книга1:2").Activate
    Range("A1:A14").Select
    Selection.Copy
    Range("B1:B14").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Наблюдаем, что в окне 1, которое в данный момент не активно происходит скачек на
тот лист, с которым  производилась операция специальной вставки в окне 2.
Но, когда выполняешь подобные действия, через меню таких скачков не происходит.
Подскажите, пожалуйста, как победить эту ерунду Очень нужно для работы.

[boki]

интересно как сортировать: из txt берем фамилии разные информации потом надо рассортировать в ексель в форму

[HandKot]

Гость, может попробовать выставитть свойство "ScreenUpdating" в "False",
что в принципе не дает перересовывать окно во время операции, а по окончании оной выставить в "true" (честно скажу - не пробовал)

boki, не понял вопрос

[boki]

в txt  список столбиком фамилии, данные и.тд надо оттуда вытягивать их и размещать
в ексель данные в таблицу. таблица постоянно одна а данные в txt меняются

[HandKot]

boki, а обычный импорт не подходит?

[HandKot]

boki,  извиняюсь, я имел в виду, что в Екселе спокойно открываются текстовые файлы

[z]

:?: Как сделать интерактивную таблицу хим элементов Менделеева.  
Да так чтобы подсчитывалась молярная масса по брутто формуле типа С6Н18ОН ....  
Может быть в нете подобное уже есть я таблице уже сделал, а интерактивный выдор буквенных компонентов брутто формулы собрать затрудняюсь...
Подскажите хотябы идею!.... :new_shot:  :new_twist: