Altera o foco na célula do EXCEL

Question

O que eu preciso mudar então quando eu clico por exemplo A5 o foco deve ser alterado para B3, então quando eu clico em B5 o foco deve ir para C3 e assim por diante ....

Então meu código agora é:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Range("A5:D5"), Target) Is Nothing Then
    Range("A3").Select
  End If
End Sub

Então, quando seleciono uma linha 5 de A a D, o ponto é movido para A3. Em vez de A3, eu gostaria de mudar para a próxima coluna na linha 3.

Obrigado

    

Answer 1

Talvez:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Range("A5:D5"), Target) Is Nothing Then
  Application.EnableEvents = False
      Target.Offset(-2, 1).Select
   Application.EnableEvents = True
  End If
End Sub