#
# Sorting 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
CopyToPasteBuffer $activeSheet 0 0 0 1499
Paste $activeSheet 1 0 2 0
set s [time [list SortCells $activeSheet  1 0 1 1499 0 0 0]]
puts $s
