Sub text2numbers()
Selection.NumberFormat = "General"
For Each xCell In Selection
xCell.Value = Val(Replace(Replace(xCell.Value, ".", ""), ",", "."))
Next xCell
Selection.NumberFormat = "#,##0.00"
End Sub