Try this macro

Private Sub Worksheet_Change(ByVal Target As Range
If Target.Address = "$A$1" Then Range("B6").Selec
If Target.Address = "$B$6" Then Range("C1").Selec
If Target.Address = "$C$1" Then Range("A1").Selec
End Sub