Сложный формат ячейки макросом..

[segail]

Здравствуйте.
Сложный формат ячейки
Необходимо в ячейки F13 заменить “.” на “,” , предугадать где будет точка нельзя, также ее может и не быть. Также в данной ячейки необходимо удалить знак “`”, он всегда присутствует в конце.
Применил данный код Тест1

Range("F13").Replace ".", ",": Range("F13").Replace "`", ""

затем необходимо перенести данное числовое значение по с ссылке в ячейку D13

ActiveCell.FormulaR1C1 = "=RC[2]"

Данная ячейка отформатирована под числовое значение (число десятичных значений 1, отрицательные числа красные)
При выполнение кода, красный цвет отрицательного значения отсутствует, при проверки на число формула дает 0.
Изначально я использовал данный код Тест2

Range("D15").Formula = "=VALUE(REPLACE(IF(ISERROR(SEARCH(""."",RC[2])),RC[2],REPLACE(RC[2],SEARCH(""."",RC[2]),1,"",""))," & Chr(10) & "SEARCH(""`"",IF(ISERROR(SEARCH(""."",RC[2])),RC[2],REPLACE(RC[2],SEARCH(""."",RC[2]),1,"",""))),1,""""))"

данный код работает нормально но на 97-2003 идет сбой

[SAS888]

Замените строку Вашего кода

Range("D13").FormulaR1C1 = "=RC[2]"

на строку

Range("D13").FormulaR1C1 = "=VALUE(RC[2])"

Пример во вложении.