Private Sub Worksheet_Change

[Peterso]

I want to write the follow activity log:

Private Sub Worksheet_Change(ByVal Target As Range)

endrow = Sheets(4).Cells(1000000, 1).End(xlUp).Row

Sheets(4).Cells(endrow + 1, 1).Value = Now()
Sheets(4).Cells(endrow + 1, 2).Value = address of the cell which has been changed
Sheets(4).Cells(endrow + 1, 3).Value = Target
Sheets(4).cells(endrow+1,4).value=Name of person who made the change
End Sub

Kindly tell me how to find the address of the cell which has been changed and the name of person who made the change. Thanks

 

[Peterso]

Solved. Thanks