proc keySheet t {

	global CellValues

	set cols [$t cget -cols]
	set rows [$t cget -rows]

	loop i 1 $cols {
		set CellValues(0,$i) [ctype char [expr 64 + $i]]
	}

	loop j 1 $rows {
		set CellValues($j,0) $j
	}

}

