Как запретить Экселю преобразовывать текст в дату?

[Сергей54]

В одной из колонок листа1 есть данные типа 1-2-0, 2-4-2 и т.п. (колонка отформатирована как текст). Макросом в цикле ищу нужную строку и хочу перенести значение из этой колонки4 на лист2 в колонку5

код:
Worksheets(2).Cells(j, 5).Value = Worksheets(1).Cells(i, 4).Value

Результат: вместо 1-2-0 вижу 01.02.2000, вместо 2-4-2 - 02.04.2002 и т.д. Предварительное форматирование колонки5 на листе2 как текст почему-то помогает не всегда. В настройках Экселя поставил переключатель Вычисления производить ВРУЧНУЮ - всё работает правильно. Но ведь каждый раз при работе с этим файлом это делать неудобно. Как это сделать автоматически при открытии файла и вернуть переключатель назад при закрытии?

[EducatedFool]

самый простой вариант решения проблемы - ставить апостроф перед значением
это даст Excel-ю понять, что формат значения - текстовый

Worksheets(2).Cells(j, 5).Value = "'" & Worksheets(1).Cells(i, 4).Value

[EducatedFool]

Если вы хотите на врем работы макроса отключать пересчёт формул - это делается так:

Private Sub Workbook_Open()
    ' при открытии файла - включаем ручной пересчёт
    Application.Calculation = xlCalculationManual
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' перед закрытием - восстанавливаем автоматический пересчёт формул
    Application.Calculation = xlCalculationAutomatic
End Sub

Код надо поместить в модуль ЭтаКнига

PS: Не думаю, что этот вариант вам поможет.
У вас проблема не в перечёте формул, а в автоматической конвертации форматов.

[Сергей54]

Именно это мне и нуждно было. Макрос работает как часики, и данные переносятся в нужном виде. По окончании работы с этим файлом этот параметр Экселя (автоматические вычисления) восстанавливается.
Большое спасибо.