Terriffic.
Thanks. Worked after I selected the range.


"Sandy Mann" wrote in message
...
Rodrigo,

That will add commas to empty cells.

I suggest highlighting the range to be chabged and running:

Sub AddComma()
For Each cell In Selection
If cell.Value < "" Then
cell.Value = cell.Value & ","
End If
Next cell

End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Rodrigo Ferreira" wrote in message
...
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.


If the column that you want to add a comma is A, try to put the formula
in column B

=A1 & ","

Copy the formula to others cells in the same column (B)

--
Rodrigo Ferreira
Regards from Brazil