delete comment if present in VBA

[VBA_Newbie123]

Hi Team,

I have a macro that works fine that adds a comment to the cells but if there is one there already it will stop. What I was hoping to do was rather that delete the comment, could I append another comment to it rather than delete and lose the previous one? Code as below for the part i'm trying to fix;

If OptionButton2.Value = True Then     ActiveCell.Offset(0, 5) = "0"
    ActiveCell.Offset(0, 5).Activate
    ActiveCell.AddComment
    ActiveCell.comment.Text Text:=Environ("username") & Chr(10) & "Zeroed" & Chr(10) & Date & Chr(10) & Time()
    ActiveCell.comment.Visible = False
    
    ActiveCell.Offset(0, 1).Activate
    ActiveCell.AddComment
    ActiveCell.comment.Text Text:=Environ("username") & Chr(10) & "Zeroed" & Chr(10) & Date & Chr(10) & Time()
    ActiveCell.comment.Visible = False
    ActiveCell.Offset(0, 0) = "0"
    
    ActiveCell.Offset(0, 1).Activate
    ActiveCell.Offset(0, 0) = "0"
    ActiveCell.AddComment
    ActiveCell.comment.Text Text:=Environ("username") & Chr(10) & "Zeroed" & Chr(10) & Date & Chr(10) & Time()
    ActiveCell.comment.Visible = False
    
    End If

 

[My Aswer Is This]

Here is a simple script as a example to what you want.
Modify your script as needed

Sub Add_My_Comment()
'Modified  1/24/2019  10:46:18 PM  EST
Dim cmt As Comment
Set cmt = ActiveCell.Comment
    If cmt Is Nothing Then
        ActiveCell.AddComment Text:="Me"
    Else
ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & vbNewLine & "You"
    
    End If
End Sub

 

[mikerickson]

ActiveCell.NoteText Text:=ActiveCell.NoteText & vbCr & "hi"