Thank you! Tom this was exactly what I needed ;-)

Cheers!

Tom Ogilvy wrote:

From Debra Dalgleish's site
http://www.contextures.com/xlcomments03.html

Sub CommentAddOrEdit()
'adds new plain text comment or positions
'cursor at end of existing comment text
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
ActiveCell.AddComment text:=""
End If
SendKeys "%ie~"
End Sub

You can combine this with the selection change event or the change event to
achieve the functionality you want/describe.





--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)