Worksheet change Event

[Hashiru]

Hi All,

I have these code below that I want to change to worksheet change event

Sub Worksheet()
For Each Cell In Selection
Cell.Offset(0, -1) = Cell.Offset(0, -1) + Cell
Next
End Sub

 

[Hashiru]

I the code below is what I what to use to modify the user experience. I want to ensure that as soon as cells on column D changes the corresponding cells in column C should change using the same idea for the Cell.Offset(0,-1) = Cell.Offset(0, -1) + Cell

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
'Set the values
ActiveCell.Offset(0, -1) = ActiveCell.Offset(0, -1) + ActiveCell
Application.EnableEvents = True
End Sub
<strike></strike>