function hydel(CellObjects)
% HYDEL Function to delete a values in spreadsheet cells in Hysys.
%    hydel(CellObjects) changes the value of CellObjects to <empty>.
%    CellObjects can contains a single object or a cell array of objects.
%
% 	Hysys uses the integer -32767 to represent <empty>.
%
%	Based on hyset.m by Olaf Trygve Berglihn <olafb@pvv.org>
%
%	By Robert Brendel <brendel@udel.edu>
%
%% Revision 1.1  2000/11/01 rjbrendel
%% Initial revision
%%

if isa(CellObjects, 'cell')
  for n1 = 1:size(CellObjects,1)
    for n2 = 1:size(CellObjects,2)
      if isa(CellObject{n1,n2}, 'activex')
		CellObjects{n1,n2}.CellValue = -32767;
      end
    end
  end
else
	CellObjects.CellValue = -32767;
end