Есть макрос, который преобразовывает из текстового формата в числовой  
 
Sub Отчисловать() 'Этот макрос превращает числа, отформатированные как текст, в числа  
   STime = Timer  
   Selection.NumberFormat = "#,##0"  
   Dim x As Variant  
   x = ActiveWindow.RangeSelection  
   ActiveWindow.RangeSelection = x  
End Sub  
 
Если выделить несколько ячеек и применить макрос, то преобразовывает корректно (в примере желтым цветом)  
Если одну ячейку - то "не видит" запятую. В файле красная ячейка - было 209,745. Должно было быть после преобразования 209,745. Но оказалось 209 745.  
В чем загвоздка? помогите ))