diff --git a/lcl/grids.pas b/lcl/grids.pas
index bab4d587b9..956bb0e194 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -6700,7 +6700,10 @@ var
   aColRow: Integer;
 begin
   if FromIndex=ToIndex then
+  begin
+    VisualChange;
     exit;
+  end;
 
   CheckIndex(IsColumn, FromIndex);
   CheckIndex(IsColumn, ToIndex);