diff --git a/components/fpspreadsheet/fpsactions.pas b/components/fpspreadsheet/fpsactions.pas
index 270c84772..2ed11fd82 100644
--- a/components/fpspreadsheet/fpsactions.pas
+++ b/components/fpspreadsheet/fpsactions.pas
@@ -255,7 +255,7 @@ begin
     else
       s := InputBox('Rename worksheet', 'New worksheet name', s);
     // No change
-    if s = WorksheetName then
+    if s = Worksheet.Name then
       exit;
     // Check validity of new worksheet name
     if Workbook.ValidWorksheetName(s) then