Add a comment when cells are changed

  • Thread starter Thread starter dimbroane
  • Start date Start date
D

dimbroane

Hello

I have the range "D2:Q50" in the active sheet.
I am looking for a macro that will automatically insert a comment
("changed by username on now") into the cell changed.
I suspect that Private Sub Workbook_SheetChange plays a role here.
If you could help, please.

Regards
 
How about something like this...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("D2:Q50")) Is Nothing Then
On Error Resume Next
Target.Comment.Delete
Target.AddComment "Changed by " & Application.UserName & " on " & Now
End If
End Sub
 
Excellent, it's quite perfect. Thank you.


How about something like this...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Not Intersect(Target, Range("D2:Q50")) Is Nothing Then
    On Error Resume Next
    Target.Comment.Delete
    Target.AddComment "Changed by " & Application.UserName & " on " &Now
  End If
End Sub
Click to expand...
 
Back
Top