Замена текстового формата, на числовой

[amadeus017]

Доброго времени суток!

Обращаюсь к вам, уважаемые форумчане со следующей просьбой.
Есть файл, в котором имеются ячейки со значениями как текст, так и с числовыми значениями. Однако при выгрузки данных, в интересующим меня диапазоне (Q:V), значения в графах Q16:V(количество строк разное), цифры загружаются с пробелом, помимо этого, знак ".", необходимо заменить на ",".
Записал макрорекордером макрос, но теперь проблема в том, что значения в ячейках в которых произвел макрос замену, стали текстовые.
Как исправить ошибку, прошу помощи.

    Range("Q16:V1000").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[IgorGO]

задайте сначала диапазону числовой формат, а потом проведите замены

[Казанский]

  With Range("Q16", Cells(Rows.Count, "V").End(xlUp))
    .Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    .Formula = .Formula
  End With

[amadeus017]

Сообщение от Казанский

  With Range("Q16", Cells(Rows.Count, "V").End(xlUp))
    .Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    .Formula = .Formula
  End With

Большое спасибо за код, все заработало!