Try this macro

Sub add_comma()
For myrow = 1 To 10
Cells(myrow, 1).Value = "," & Cells(myrow, 1).Value
Next myrow
End Sub

Ian

"Shelley" wrote in message
...
I need to add a comma in front of the text in a cell and copy the same for
4000 rows. Can you help me with a fromula or a macro. Thanks and regards