Функция найти и заменить, различные результаты с макросом.

[interseptor]

Пример прикреплен (с макросом))).
Весь лист имеет формат текст (т.к. надо копировать с инета, но не в этом суть)
Необходимо в столбце А заменить точку на запятую. Если это сделать вручную функцией "найти и заменить", то всё работает. А вот если макросом, то нет - нет ни точки, ни запятой.
Почему так? И как изменить макрос, чтобы такого не было???

Кстати, если после точки (котор. заменят на запятую) всего два знака, то макрос работает... ничё не понимаю... памагите 

[RAN]

Однако так надо. 

Код Выделить Развернуть

Sub Макрос1()
    Columns("A:A").Select
    Selection.Replace What:=".", Replacement:="."
End Sub

Это все VBA шалит.

[interseptor]

Спасибо!!! 

никогда бы не догадался, решение работает, хотя ХЗ почему... мож када прозрею 
Эксель наука сложная, до конца не изученная 

[RAN]

Для ускорения прозрения.
В VBA из файла попадает ТЕКСТ с точкой.
В VBA десятичный разделитель - точка.
Строка

Код Выделить Развернуть

Selection.Replace What:=".", Replacement:="."
превращает текст в число.
VBA передает это число в Excel, а уже Excel, в соответствии с региональными настройками, заменяет десятичный разделитель точку на запятую.
Как-то так.   

[interseptor]

Ясно, спасибо за разъяснения, учту.