Hello,

I wish to write a function that can concatenate the
content of 200 or more previous cells.

Many thanks for your help,

Thang

dim i as long, sStr as Long
for i = 1 to 2000
sStr = sStr & cells(i,1).Value
Next
debug.print sStr

--
Regards,
Tom Ogilvy

"thang" wrote in message
...
Hello,

I wish to write a function that can concatenate the
content of 200 or more previous cells.

Many thanks for your help,

Thang