Почему скрипт преобразует ЗАГЛАВНЫЕ буквы в строчные???

[lex1]

Есть скрипт, который берет значения ячеек из выделенного диапазона и присваивает их рядом такому же диапазону:

Sub SelectConvertRange()
Dim cur_range As Range
With ActiveSheet
Set cur_range = Selection
cur_range.Activate
For x = 1 To cur_range.Rows.Count
For y = 1 To cur_range.Columns.Count

x1 = x
y1 = y + cur_range.Columns.Count
cur_range(x1, y1) = cur_range(x, y).Value
Next y
Next x
End With
End Sub

Почему, если в исходных ячейках имеется текст написанный заглавными буквами:
=СУММ(d4:d20)
а в итоговых ячейках получаем этот текст строчными:
=сумм(d4:d20)

Как исправить?

[SAS888]

Извините, но

cur_range(x1, y1) = cur_range(x, y).Value

скопирует не формулы, а значения ячеек.Поэтому -

в итоговых ячейках получаем этот текст...

Это ведь не правда.

[SAndrus]

Тут надо работать с формулами. Вроде .formula не могу проверить но попробуйте

[lex1]

Извините, но
Цитата:
cur_range(x1, y1) = cur_range(x, y).Value

скопирует не формулы, а значения ячеек.Поэтому -
Цитата:
в итоговых ячейках получаем этот текст...

Это ведь не правда.

Скорее всего Вы правы.

Тут надо работать с формулами. Вроде .formula не могу проверить но попробуйте

Использовать .formula не получается, выдает сразу ошибку Run time error '1004'

Идея использования заключается в следующем:

1. Сформировать с помощью =СЦЕПИТЬ () ссылки или формулы
2. Копировать
3. Специальная вставка-> значения
4. Получаем формулы или ссылки в ячейках, но они не работают, а выводятся в виде текстовой строки
(Напр. ='D:\Работа\3.март08\[20080331_buy_norem.xls]форма'!$L$108)

5. Для активации необходимо открыть каждую ячейку(до 8760 ячеек и более...), что и делает этот скрипт.
Для ссылок все работает нормально но, из-за замены заглавных букв строчными не работают стандартные функции, напр. СУММ()