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