sub format_cell2 {
    my ($self, $format, @days) = @_;
    
    foreach (@days) {
		foreach my $key (keys %$format) {
	    		${$self->{'cell_format'}[$_]}{$key} = 			                        ${$format}{$key};
		}
    }
}