Convert Multiple Columns to Single Row?

[AboveBeyond]

I"m trying to convert multiple columns to a single row separated by commas.

Example:
Multiple Columns

1.Joe
2.Jack
3.Bill
4.John

To One Row:

Joe,Jack,Bill,John


Thanks for any help!

 

[BrianB]

Copy
Select target
Edit/Paste Special/Transpose

 

[jindon]

1) hit Alt + F11 to open VB Editor
2) go to [Insert] - [Module] then paste the code onto the right pane
3) hit Alt + F11 again to get back to Excel
enter in cell like
=AboveBeyond(A1:A10,",")

Function AboveBeyond(rng As Range, delim As String) As String
     AboveBeyond = Join(WorksheetFunction.Transpose(rng.Value),delim)
End Function