I have a macro that adds a comma to the end of a cell value for all cells within a range that contains a value.

Sub Comma()
Range("B1:C100").Select
For Each cell In Selection
If Len(cell.Value) > 0 Then cell.Value = cell.Value & ","
 Next cell
End Sub
It looks fine in Excel. However, when I save the file as a Text File, it places unwanted quotes around the data where the comma was placed.

In excel it looks like this 700.23, 459.1, 500.02 (which is what I want)

When saved as a txt file it looks like this "700.23," "459.1," 500.02 (which is not what I want)

Any help would be appreciated.