Hi there. I got a problem changing comment contents after users add the comments. I got the following code trying to delete the line of "Type comment here>:" in the comment box after user types his own comments. But it did not work.
Can anyone please help me out?
Cheers.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not ActiveCell.Comment Is Nothing Then
Exit Sub
Else
resp5 = MsgBox("Enter comments?! Proceed? (Y/N)", vbYesNo + vbDefaultButton2, "Comments")
If resp5 = 7 Then
Exit Sub
ElseIf resp5 = 6 Then
Me.Unprotect Password:="xxxl" ', UserInterfaceOnly:=True
Target.Locked = False
Target.AddComment
ActiveCell.Comment.Visible = True
addCom1="Enter comments here>"
addCom2=ActiveCell.Comment.text
ActiveCell.Comment.Text Text:=addCom1 & AddCom2
ActiveCell.Value = "Y"
ActiveCell.Comment.Text Text:=AddCom2
End If
End If
End Sub
Can anyone please help me out?
Cheers.