diff --git a/components/fpspreadsheet/xlsxooxml.pas b/components/fpspreadsheet/xlsxooxml.pas
index 1dc822383..f5b7a73e5 100755
--- a/components/fpspreadsheet/xlsxooxml.pas
+++ b/components/fpspreadsheet/xlsxooxml.pas
@@ -3000,7 +3000,7 @@ begin
   w := AWorksheet.ReadDefaultColWidth(suChars);
   h := AWorksheet.ReadDefaultRowHeight(suPoints);
   AppendToStream(AStream, Format(
-    '<sheetFormatPr baseColWidth="%.2f" defaultRowHeight="%.2f" customHeight="true" />',
+    '<sheetFormatPr baseColWidth="10" defaultColWidth="%.2f" defaultRowHeight="%.2f" customHeight="true" />',
     [w, h],
     FPointSeparatorSettings));
 end;