VBA: как заменить точку на запятую?

[Bublik_RUS]

Есть столбец с числами где целая и дробная части разделены точкой:
6.044355
5.350425
4.065689
1.917104
1.890207
1.835024
1.697727
1.458852
1.409534
1.291432
1.122644
1.08315
1.078912
0.974991
0.95508
0.951039
0.940611
и т.д.

Есть примитивный скрипт:

Sub Macro2()
'
' Macro2 Macro
'
Dim sht As Worksheet
'
'Store a specfic sheet to a variable
  Set sht = Sheets("Pool_100")
'
    sht.Columns("D:D").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Скрипт корректно отрабатывает только на значениях начинающихся с нуля:
6 044 355
5 350 425
4 065 689
1 917 104
1 890 207
1 835 024
1 697 727
1 458 852
1 409 534
1 291 432
1 122 644
108 315
1 078 912
0,974991
0,95508
0,951039
0,940611


Помогите люди добрые, как корректно заменить запятую на точку в ячейках с где целая часть >0?

[Aleksandr H.]

Будет ли корректно хз, но работает

Sub aa()
    Dim iLastRow As Long
    Dim sht As Worksheet
    Dim cel As Range
    Set sht = Sheets("Pool_100")
    
    With sht
        iLastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
        For Each cel In .Range(.Range("D1"), .Cells(iLastRow, "D"))
            cel.Value2 = --Replace(Trim$(cel.Value2), ".", ",")
        Next cel
    End With
End Sub

[Bublik_RUS]

Aleksandr H.,
не работает (
Выдает Type mismatch на строке cel.Value2 = --Replace(Trim$(cel.Value2), ".", ",")

[Bublik_RUS]

Сорян, мой косяк, разобрался. В первой ячейке столбца текстовый заголовок =)

Все отлично работает! Большое спасибо за помощь!

[Igor1961]

Тоже думал, что нужен цикл по ячейкам и поиск запятой в каждой, => число преобразовать в строку, но постеснялся выложить свои соображения перед ГУРУ ИМХО: штатная функция (найти и заменить) именно по этому принципу работает? В VBE когда-то с этим сталкивался, кавычки вокруг точки не помогали. Или все же есть варианты в VBA в данных числового типа менять точку на запятую и наоборот?

[IgorGO]

но постеснялся выложить свои соображения перед ГУРУ

совершенно напрасно. интересна тема, знаете ответ - пишите
а так называемые ГУРУ - они как раз и есть "так называемые"))