diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas
index 85c3a90ad..a78640ff7 100644
--- a/components/fpspreadsheet/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/fpspreadsheetgrid.pas
@@ -3822,6 +3822,10 @@ end;
 procedure TsCustomWorksheetGrid.NewWorkbook(AColCount, ARowCount: Integer);
 begin
   GetWorkbookSource.CreateNewWorkbook;
+  FInitColCount := AColCount;
+  FInitRowCount := ARowCount;
+  Setup;
+
   {
   if FOwnsWorkbook then
     FreeAndNil(FOwnedWorkbook);