Each Cell to have a comma added to it's data

Posted by Ros West on November 06, 2001 8:48 PM

I need to have my spreadsheet seperate each cell with double quotation marks. I am saving the file in .csv format which I believe will put double quotion marks around the cell if there is a comma in it. Do you know of any easy way to add a comma to each cell?

Posted by Paul Akkermans on November 07, 2001 12:00 AM

Sub comma()

For Each cl In Range("A1:Z200")
cl.Value = cl.Value & ","
Next cl
End Sub