Option Explicit
Sub NoCommas()
Dim c As Range
ActiveSheet.UsedRange.Select
For Each c In Selection.Cells
c = Replace(c, ",", "")
Next
ActiveSheet.Range("A1").Select
End Sub
if you run the macro recorder and record find replace for commas, stop the recorder and look at the code. if it need tweaking you might post it back to the forum