Srpünge in nichtbenachbarte Zellen mit Return ?
evilknebel
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then Range("D5").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then Cells(Target.Row, 4).Select
End Sub