problemas al reemplazar

Hola! Mi tabla de datos tiene muchas celdas en blanco, o mas bien, casi
en blanco, porque han introducido un punto donde faltaba el dato.
El resto de los datos son numeros del tipo 1,5 con coma decimal, no
punto. Queria sustituir los puntos por espacios en blanco, pero al usar
este codigo,

Columns("e:e").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

me reemplaza tanto puntos como comas por espacios en blanco, con lo
cual si antes tenia 1,5 ahora tengo 15 y es un lio.

Alguien me puede ayudar?