Emile, thank you, I learn something new every day.
Arief, when you do a for…next and you use TextArea1.Text=listBox1.cell(i,0) you assign a value each time and remove the previous value, so you end with only the last value. When i=0 TextArea1.Text will be ListBox1.Cell(0,0), when I=1 the contents of TextArea1.Text will be replaced with ListBox1.Cell(1,0) and so on.