remove cursor selection

[max_max]

Hi to all,
is this possible?:

example I write in G15 and must remain in G15
partially works with Target.Select
This doesn't have to happen
I write in G15, for example, I move to G16 with the arrow and immediately returns to G15

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect "123456"

Application.EnableEvents = False
Application.ScreenUpdating = False
                  
'-------------------------------------------------------------

  ActiveSheet.Range("H9:H23").Copy
  ActiveSheet.Range("L9:L23").PasteSpecial Paste:=xlPasteValues
  
  Application.CutCopyMode = True

  'ActiveCell.Select
  Target.Select
  
'-------------------------------------------------------------
    
Application.EnableEvents = True
Application.ScreenUpdating = True

'ActiveSheet.Protect "123456"

End Sub

I hope I have explained
max

[mehmetcik]

Sub Test()
Application.OnKey "{Right}", ""
Application.OnKey "{Left}", ""
Application.OnKey "{Down}", ""
Application.OnKey "{Up}", ""
End Sub

[max_max]

Hi mehmetcik
where it goes in the macro?

[mehmetcik]

Sorry.

Place the code in a normal Macro module.

Run the Macro and then try entering some data

[max_max]

I tried as you say, if I did exactly but it does not go

[mehmetcik]

Try this version.

The Macro runs automatically

Option Explicit

Sub Auto_Open()
Application.OnKey "{Right}", ""
Application.OnKey "{Left}", ""
Application.OnKey "{Down}", ""
Application.OnKey "{Up}", ""
End Sub

[max_max]

but now the arrows no longer work