EXCEL シートごとに移動方向を変更

Private Sub Worksheet_Activate()

　Application.MoveAfterReturn = True
　Application.MoveAfterReturnDirection = xlToRight

End Sub

★「xlDown」なら下

★Bookを開く時なら

Private Sub Workbook_Open()
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlDown

End Sub