so, I'm not sure what is your goal anyways...
instead of your one write data going per row, you write per column.
so, to replace your above code, it would be something like:
$column=$.sheets($1).columns.count+1
for $=0 to ubound($array)
$workb.sheets(1).cells($+2,$column).value=$array[$]
next
or did I miss something? (me really not sure of your goals in there...)
_________________________
!download
KiXnet
