Ho risolto abbastanza brutalmente con questa macro:

Dim x

Sub somma()
Sheets("Foglio1").Select
x = ActiveSheet.Cells(1, 1).Value
Sheets("Foglio2").Select
ActiveSheet.Cells(1, 2).Value = ActiveSheet.Cells(1, 2).Value + x
End Sub


Non è che esiste una Sub che gestisce l'evento del tasto invio relativo ad una casella?
Vorrei evitare di far eseguire la macro con un tasto di rapida scelta tipo Ctrl+S o ancor peggio andare in macro e premere esegui.