carruina respondió:
Añade este código de Visual a la Hoja Excel. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D4").Activate End If End Sub En el evento Change; si la celda que has cambiado es la A1 entonces te envía a la celda D4