Combining Cell into One

[zyx777]

Is there an easy way to combine say A1 to A5000 to B1 seaparated by comma ?

 

[Patrick Molloy]

Sub combine()

Dim text as string, i As Long
For i = 1 To 5000
text = text & Cells(1, 1)
Next
[b1] = text

End Sub


PAtrick Molloy
Microsoft Excel MVP