diff --git a/components/fpspreadsheet/fpsvisualutils.pas b/components/fpspreadsheet/fpsvisualutils.pas
index ac26d74e1..e105f6ce4 100644
--- a/components/fpspreadsheet/fpsvisualutils.pas
+++ b/components/fpspreadsheet/fpsvisualutils.pas
@@ -266,7 +266,7 @@ begin
   painter := TsTextPainter.Create(ACanvas, AWorkbook, ARect, AText, ARichTextParams,
     AFontIndex, ATextRotation, haLeft, vaTop, AWordWrap, ARightToLeft);
   try
-    Result := painter.Height;
+    Result := painter.Width;
   finally
     painter.Free;
   end;