"Ron de Bruin" wrote...
...
You can use a function like this one
Copy the function in a normal module

=Rangecat(A1:A100,",")
Use this in the worksheet
...

As an alternative, OP could download and install Laurent Longre's MOREFUNC.XLL
add-in, available at http://longre.free.fr/english/, and use the MCONCAT
function it provides to do this as

=MCONCAT(A1:A100,",")

Unlike the Rangecat udf, it could also handle number/text more like CSV.

=MCONCAT(IF(ISTEXT(A1:G1),""""&A1:G1&"""",A1:G1)," ,")

The latter is an array formula.

--
To top-post is human, to bottom-post and snip is sublime.