Thread: My own text using right click "New note"
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
GS[_6_] GS[_6_] is offline
external usenet poster
  
Posts: 1,182
Default My own text using right click "New note"
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
Reply With QuoteReply With Quote