The correct syntax to accomplish what you are trying to do is...
Sub ThisIsMyOwnNote()
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
ActiveCell.AddComment "This is my own note"
Else
cmt.Text cmt.Text & Chr(10)
End If
End Sub
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion