sub colIdToString {
    my $col = shift;
    my $column = "";
    while( $col ) {
        my $remainder = ($col-1) % 26 + 1;
        $column = chr( $remainder + 64 ).$column;
        $col -= $remainder;
        $col /= 26;
    }
    return $column;
}