Note the If Len(mstr) 255 Then Exit For


Sub createstring()
For Each c In Range("f1:f5")
mstr = mstr & "," & c
If Len(mstr) 255 Then Exit For
Next c
Range("f7") = Right(mstr, Len(mstr) - 1)
End Sub


--
Don Guillett
SalesAid Software

"Wanna Learn" wrote in message
...
Hello I have a column with 452 entries . each entry consists of a
number,
(example, 13700701) I need to add a comma after each entry then combine
all
the numbers in one cell so that I can export to a business object report
.
I've been doing this one at a time How can I do this faster? Help Please