Try
Code:Sub test() ActiveSheet.UsedRange.Replace what:=",", replacement:="", Lookat:=xlPart End Sub
Sub test()
ActiveSheet.UsedRange.Replace what:=",", replacement:="", Lookat:=xlPart
ActiveSheet.UsedRange.NumberFormat = "0.00"
End Sub
That comma isn't really there - it is the way the cell is formatted.
Perhaps
Code:Sub test() ActiveSheet.UsedRange.NumberFormat = "0.00" End Sub