maybe something like this:

Sub test()
Dim c As Range
For Each c In Range("A1:A10").Cells
If c.HasFormula Then
c.Formula = c.Formula & " & "","""
Else
c.Value = c.Value & ","
End If
Next c
End Sub

--
Hope that helps.

Vergel Adriano


"BrianMultilLanguage" wrote:

I need to add a comma at the end of every cell entry in one column and am
not having any success doing it.
It's gotta be easy for someone.
Help.