diff --git a/components/fpspreadsheet/xlscommon.pas b/components/fpspreadsheet/xlscommon.pas
index 84fcf9aad..372865aff 100644
--- a/components/fpspreadsheet/xlscommon.pas
+++ b/components/fpspreadsheet/xlscommon.pas
@@ -3313,8 +3313,7 @@ begin
   { Column width in characters, using the width of the zero character
   from default font (first FONT record in the file). }
   w := AWorksheet.ReadDefaultColWidth(suChars);
-  { It is written in units of 1/256 of the character width }
-  AStream.WriteWord(round(w * 256));
+  AStream.WriteWord(round(w));
 end;
 
 {@@ ----------------------------------------------------------------------------