diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index 6dd039d4e..d9bbe3f07 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -1070,7 +1070,8 @@ procedure TsWorkbookSource.InternalLoadFromWorkbook(AWorkbook: TsWorkbook;
 begin
   AWorkbook.DisableNotifications;
 
-  InternalCreateNewWorkbook(AWorkbook);
+  if AWorkbook <> FWorkbook then
+    InternalCreateNewWorkbook(AWorkbook);
   WorkbookOpenedHandler(self);
 
   if AWorksheetIndex = -1 then