salve
devi utilizzare l'evento selection_change del foglio di lavoro.
questa è una possibile soluzione:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Rng = Range("a1:A120")
If Not Intersect(Target, Rng) Is Nothing Then
Target.Offset(0, 1).Value = "SI"
End If
End Sub
devi copiare la macro nel mdoulo del foglio di lavoro.
fai click dx sulla linguetta del foglio e scegli "visualizza codice
nella pagina bianca che compare incolla il codice sopra indicato Alt+F11 per tornare al foglio di lavoro
ora, cliccando in una qualsiasi cella da A1 a A120 nella colonna B appararirà "SI"
saluti
Giap