Be lehet. Nyom j egy alt+f11-et.
Bal oldalt kattints a szükséges munkalap megnevzésére duplán
és a jobb oldalon megjelenő területre írd be ezeket a kódokat a megfelelő munkalaphoz.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturnDirection = xlToRight
End Sub


Munka1 fül eseménykezelőjébe:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturnDirection = xlDown
End Sub