Tracking cell changes in a comment : Cell Comments « Excel « VBA / Excel / Access / Word

Tracking cell changes in a comment

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    For Each cell In Target
        With cell
            On Error Resume Next
            OldText = .Comment.Text
            If Err <> 0 Then .AddComment
            MsgBox OldText & "Changed by " & Application.UserName & " at " & Now & vbLf
            .Comment.Text NewText
            .Comment.Visible = True
             Selection.AutoSize = True
            .Comment.Visible = False
        End With
    Next cell
End Sub


Related examples in the same category

1.Get the comment text
2.Converts docstring column into comments on name column.
3.Clean the comment
4.resize Comments
5.Count Comments
6.Toggle Comments