# Utility function to safely look inside of a Cell
sub cell {
	my ($Wks, $r, $c)= @_;
	if (defined $Wks->{Cells}[$r][$c]) {
		my $val= $Wks->{Cells}[$r][$c]->Value;
		$val =~ s/ \(/\(/gi;
		$val =~ s/formerly/Frm\./gi;
		$val =~ s/\s\s/ /gi;
		return $val;
		}
	return "";
	}