Автоматическая утсановка параметра в ячейку excel

[NP]

Скажите, плз, как сделать такую штуку.
Когда вставляешь в ячейку многострочный текст из буфера, например
1уаауы выыва
аыыв
ываыв
ываыав
ывыва
Эксель автоматическим ставит в окне ФОрмат > Ячейки галочку "Переносить по словам".
Подскажите текст макроса, который бы автоматически убирал этот параметр, сразу после ввода данных в ячейку.
Спасибо!

[Vitaly1]

Sub Макрос1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 27.03.2004 (RSUOG)
'

'
ActiveCell.WrapText = False

End Sub

[NP]

Этот макрос работает только тогда, когда курсор стоит на ячейке, и когда ты этот макрос запускаешь...
Когда вводишь многострочные данные в другую ячейку, макрос ее не обрабатывает, а работает с ней только когда его снова запустишь.

[alibek]

Private Sub WorkSheet_Change(...)
Cells.WrapText = False
End Sub

[NP]

Такая же история - обрабатывает ячейку один раз, только когда его запускаешь... Может, я что-то непрально делаю?
Захожу в сервис > макрос > макросы. Создаю макрос с именем макрос1, вставляю туда код. Запускаю Run.

[Vitaly1]

1) Зайди в редактор VBA
2) Шелкни два раза по имени листа, в котором хочешь выполнять свои хитрости
3) в модуль листа выбири объект WorkSheet, и его событие Change, а в событийную процедуру вставь жирный код

Код: Выделить всё

Private Sub WorkSheet_Change(...)
[b]Cells.WrapText = False [/b]
End Sub

Это означает, что при каждом изменении данных в ячейках на листе, отменяется многострочный режим во всех я чейках. понял