Private Sub Worksheet_Activate()
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Worksheet_Deactivate()
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlDown ' I assume this is your default direction
End Sub
Incorporate the above code in the section pertaining to the sheet where you want this to happen e.g. if you want this only in Sheet4 , then put this code in the section for Sheet4 in your VBA Project Explorer.
If your normal action is not to move the cursor when the ENTER key is pressed , then , in the Deactivate procedure , instead of the two given lines , use only the following line :
Application.MoveAfterReturn = False