Удаление пробелов в ячейке Excel

В Excele имеются скопированные из другой программы числа, но они отображены с пробелами и имеют формат "Общий".
Макрос по удалению пробелов в ячейках Excel
Sub замена()
Dim cell As Range: Application.ScreenUpdating = False
For Each cell In Intersect(ActiveSheet.UsedRange, Range("C:C,E:E,G:G,I:I,K:K,N:N"))
If InStr(1, cell.Text, Chr(160)) Then
cell = Replace(Replace(cell, Chr(160), ""), ",", ".")
End If
Next cell
End Sub