#
# Reference propagation through 1500 cells
#

CellSet $activeSheet 0 0 1
CellSet $activeSheet 0 1 "=A1+1"
CopyToPasteBuffer $activeSheet 0 1
Paste $activeSheet 0 2 0 1499 0 0
set s [time [list CellSet $activeSheet 0 0 10]]
puts $s


