Terry, it sounds like you want to add text to a comment that is alread
there. Taking what Shah wrote and modifying it to update rather tha
overwrite, it would look like this.

Sub Test()
Dim rng As Range
Dim cmttext As String, oldtext as string

cmttext = "Insert New comment text here."
Set rng = ActiveCell

If Not rng.Comment Is Nothing Then
If MsgBox("Below Comment is already present in the active
cell.Do You want to update it." _
& vbNewLine & rng.Comment.Text, vbYesNo, "Update Comment") =
vbYes Then
oldtext = rng.comment.text
rng.Comment.Delete
rng.AddComment oldtext & chr(13) & cmttext
End If
Else
rng.AddComment cmttext
End If
End Sub

Otherwise if you just want to overwrite it, Shah's procedure i
perfect.

Jaso

--
jt
-----------------------------------------------------------------------
jtp's Profile: http://www.excelforum.com/member.php...fo&userid=2113
View this thread: http://www.excelforum.com/showthread.php?threadid=49599