Track changes to single cells

[sharky12345]

I have this which I am using to track changes to a range;

    Dim xrng As Range    Set xrng = Range("A2:N16")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
       Is Nothing Then
        Set ws = Sheet1
        iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        ws.Cells(iRow, 1).Value = ActiveSheet.Name
        ws.Cells(iRow, 2).Value = Target.Address(False, False)
    End If

It works great, tracking the cell value and storing it for use later, but if I selected multiple cells and edit them at once it stores the cell value as 'E11:E15', (as an example), which means I can't use it later because it's not a single cell value.

Can anyone suggest a workaround or tweak so that it stores the value of every cell changed as a separate line?

 

[6StringJazzer]

Try this. Also ws is undeclared. I strongly recommend to everyone that they declare variables. Doing so prevents a lot of bugs and runtime errors.

    Dim xrng As Range
    Dim Cell As Range
    Dim ws As Worksheet
    
    Set xrng = Range("A2:N16")
    
    For Each Cell In Target
      If Not Application.Intersect(xrng, Cell) Is Nothing Then
          Set ws = Sheet1
          iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
          ws.Cells(iRow, 1).Value = ActiveSheet.Name
          ws.Cells(iRow, 2).Value = Cell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
      End If
    Next Cell

 

[sharky12345]

Perfect, thanks - and noted about declaring variables!