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.

--
Regards,
Tom Ogilvy


wrote in message
...
hello, is there a way to have an AddComment box open up automatically
ready for data entry, first thing whenever a cell is brought into focus
i.e. clicked- on? Basically, I need to give users an easier way to
entering a description on cells containing dollar amounts for
expenditures. Could someone tell me what that code might look like?
tia

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