Private Sub Worksheet_Change(ByVal Target As Range)
'ton code ...
If Not Intersect(Target, Range("G1:G65536")) Is Nothing Then
If Target = "AQ" Then
Cells(Target.Row, 23) = Now
End If
If Target <> "AQ" Then
Cells(Target.Row, 24) = Now
End If
End If
End Sub