Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column = 26 Then
Application.EnableEvents = False
Application.Goto Cells(Target.Row + 1, 1)
Application.EnableEvents = True
End If
End Sub