diff --git a/components/fpspreadsheet/source/common/fpspreadsheet.pas b/components/fpspreadsheet/source/common/fpspreadsheet.pas
index 2fef7080d..d34ab841d 100644
--- a/components/fpspreadsheet/source/common/fpspreadsheet.pas
+++ b/components/fpspreadsheet/source/common/fpspreadsheet.pas
@@ -3164,7 +3164,7 @@ begin
     AFormula^.Col := ACell^.Col;
     AFormula^.Row := ACell^.Row;
 
-    ACell^.ContentType := cctFormula;
+//    ACell^.ContentType := cctFormula;
 
     ACell^.Flags := ACell^.Flags + [cfHasFormula];
     if (AFormula^.Parser <> nil) and AFormula^.Parser.Has3DLinks then
@@ -4857,7 +4857,7 @@ begin
   end;
 
   // Set formula flags in cell
-  ACell^.ContentType := cctFormula;
+//  ACell^.ContentType := cctFormula;
   ACell^.Flags := ACell^.Flags + [cfHasFormula];
 
   // Notify controls of changed cell
@@ -4914,7 +4914,7 @@ begin
   formula^.Parser.RPNFormula := ARPNFormula;
   formula^.Text := formula^.Parser.Expression[fdExcelA1];
   UseFormulaInCell(ACell, formula);
-  ACell^.ContentType := cctFormula;
+//  ACell^.ContentType := cctFormula;
 
   ChangedCell(ACell^.Row, ACell^.Col);
 end;
diff --git a/components/fpspreadsheet/source/common/fpstypes.pas b/components/fpspreadsheet/source/common/fpstypes.pas
index 2fe1987ec..5daacc98d 100644
--- a/components/fpspreadsheet/source/common/fpstypes.pas
+++ b/components/fpspreadsheet/source/common/fpstypes.pas
@@ -765,7 +765,7 @@ type
 //    FormulaValue: String;      // Formula for calculation of cell content
     case ContentType: TCellContentType of  // variant part must be at the end
       cctEmpty      : ();      // has no data at all
-      cctFormula    : ();      // FormulaValue is outside the variant record
+//      cctFormula    : ();      // FormulaValue is outside the variant record
       cctNumber     : (Numbervalue: Double);
       cctUTF8String : ();      // UTF8StringValue is outside the variant record
       cctDateTime   : (DateTimeValue: TDateTime);