diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index 434b2bc4d..616bc3391 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -279,6 +279,7 @@ type
     function GetCells(ACol, ARow: Integer): String; override;
     function GetCellText(ACol, ARow: Integer; ATrim: Boolean = true): String;
     function GetEditText(ACol, ARow: Integer): String; override;
+    function GetDefaultColumnTitle(Column: Integer): string; override;
     function GetDefaultHeaderColWidth: Integer;
     function HasBorder(ACell: PCell; ABorder: TsCellBorder): Boolean;
     procedure HeaderSizing(const IsColumn:boolean; const AIndex,ASize:Integer); override;
@@ -3941,6 +3942,15 @@ begin
   end;
 end;
 
+function TsCustomWorksheetGrid.GetDefaultColumnTitle(Column: Integer): string;
+begin
+  if Assigned(FGetColHeaderText) then
+    FGetColHeaderText(Self, Column, Result)
+  else
+    Result := GetColString(Column - FHeaderCount);
+end;
+
+
 {@@ ----------------------------------------------------------------------------
   Returns the width of the fixed header column 0, in pixels
 -------------------------------------------------------------------------------}