Worksheet change event

[VbaHell]

Hello all

Is it possible to use this worksheet change event for the whole column instead of the cell please

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) = "I1" Then Range("J1").Value = Range("J1").Value + 1
End Sub

 

[Peter_SSs]

You're welcome.