Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
Set R = Range("A1,A6,A7")
If Not Intersect(Target, R) Is Nothing Then
Select Case Target.Address(0, 0)
Case "A1": Range("A6").Select
Case "A6": Range("A7").Select
End Select
End If
End Sub