Pablo,

Try some code like the following

Sub AAA()
Dim S As String
Dim Rng As Range
For Each Rng In Range("A1:A10")
If Rng.Text < "" Then
S = S & Rng.Text & ","
End If
Next Rng
S = Left$(S, Len(S) - 1)
Debug.Print S
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Pablo" wrote in message
...
I have a range of cells, column that I would like to take
and place in a single cell separated by a comma. Below
is the result I would like to see.

23,43,589,432,12...

23
43
589
432
12
443
898
...

Any help would be greatly appreciated.