questa cosa dovrebbe funzionare
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Integer
Dim riga As Integer
col = Target.Column
riga = Target.Row
If (col = 2) Then
Cells(riga, col + 1).Value = Now
End If
End Sub
il codice è "messo" in Worksheet_Change(ByVal Target As Range)
evento che parte al cambiamento del valore della cella
funziona sulla modifica della colonna 2: If (col = 2) Then
(che puoi variare)
ma attenzione altrimenti fai un ciclo infinito (modifica valore > scrivo valore (quindi modifico valore che scatena l'evento etc...)