For Each cell In Selection
sVal = sVal & "," & cell.Value
Next cell

Range("A1").Value = Right(sVal,Len(sVal)-1)

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"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.