Já bych asi upravil makro ve smyslu rozpoznání zda jde o číslo, nebo řetězec. Asi nějak takhle (chce to vyzkoušet a nemám tu excel).
Dim Vyber As Range
Dim Bunka As Range
Set Vyber = Range("A1:A10")
For Each Bunka In Vyber
If iString(Bunka.Value) Then Bunka.Value = replace(Bunka.Value, ".", "")
Next Bunka