Supondo que as células já foram formatadas como Texto , basta selecionar as células que você deseja converter e executar essa macro pequena:
Sub NoComma()
For Each r In Selection
v = r.Text
If InStr(1, v, ",") > 0 Then
v = Replace(v, ",", ".")
r.Value = v
End If
Next r
End Sub
Esta macro não fará alterações frívolas ou gratuitas nas células.