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

--
Rick (MVP - Excel)


"dimbroane" <(E-Mail Removed)> wrote in message
news:5eac1eba-d89a-4411-8be3-(E-Mail Removed)...
> 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

Excellent, it's quite perfect. Thank you.


On Dec 1, 7:45*pm, "Rick Rothstein"
<rick.newsNO.S...@NO.SPAMverizon.net> wrote:
> 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
>
> --
> Rick (MVP - Excel)
>
> "dimbroane" <bujorimbro...@gmail.com> wrote in message
>
> news:5eac1eba-d89a-4411-8be3-(E-Mail Removed)...
>
> > 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