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

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


.