Hallo Fritz,
kopier die nachfolgenden Statements in das fragliche Tabellenblatt
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Then Range("B1").Select
End Sub
Rechtsklick auf den Tabellenblattreiter
Linksklick auf Code anzeigen
in das sich öffnende Fenster einfügen
Alt + Q = schließen
und testen
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.