Boa tarde!!

Se necessário faça uma adaptação.
não testado

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
    Application.MoveAfterReturnDirection = IIf(Sh.Name = "Sheet1", xlToRight, xlDown) 
End Sub 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.MoveAfterReturnDirection = IIf(Sh.Name = "Sheet1", xlToRight, xlDown)
End Sub
Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Boa tarde Alexandre.

Fui no Visual Basic, cliquei na Plan1 e colei o código. Salvei e voltei ao excel, porém não funcionou.
O que fiz de errado?

Obs: Sei que posso fazer o cursor mover lateralmente clicando TAB. Todavia o que dsejo é dar ENTER para ele se mover.

Segue o anexo para você dar uma olhada.

Aviso que sei pouca coisa de VBA.

Grato
Silvio.

Boa noite Alexandre.

Como a planilha 1 funcionará apenas como formulário de consulta, acho que não faz diferença se as setas para cima, para baixo, direita e esquerda estejam ativas.
Agora, o ENTER será necessário para, ao pressioná-lo, o cursor se mover da ORIGEM para a UF e depois descer para o DESTINO e UF.

O código da macro não pode afetar a plan2, onde está a base de dados da consulta.

Mais uma vez obrigado por responder.

Silvio.

Boa noite!!!

Eu testei aqui e deu certo.

Imagine que você tem um arquivo com 3 Guias (Plan1, Plan2, Plan3)
Cada código ficará dentro de uma determinada planilha, neste caso só a Plan1, quando for acionado o Enter, o cursor será direcionado para a direita.

 '**Codigo Para Plan1**
Private Sub Worksheet_Activate() 
    Application.MoveAfterReturnDirection = xlToRight 
End Sub 
 
 
 
 
 '**Codigo Para Plan2**
Option Explicit 
 
Private Sub Worksheet_Activate() 
    Application.MoveAfterReturnDirection = xlDown 

'**Codigo Para Plan3**
Option Explicit 
 
Private Sub Worksheet_Activate() 
    Application.MoveAfterReturnDirection = xlDown 
End Sub 

Bom dia Alexandre.

Deu tudo certo.

Onde é que fica a "mãozinha" para confirmar que a resposta foi útil?

Como faço para dar resolvido o tópico?

Muito obrigado.

Silvio.