code to automatically convert cell text to comments

Originally Posted by skywriter

try this.

private sub worksheet_change(byval target as range)
'works on a1:a10, change your cells to your desired range.
If target.cells.count > 1 then exit sub
    if not intersect(target, range("a1:a10")) is nothing then
    application.enableevents = false
        target.clearcomments
        target.addcomment target.text
        target.clearcontents
    application.enableevents = true
    end if

end sub

right click on the tab you want this code to run on and choose view code, then paste in the code.
The ranges are set for a1:a10, change this to suit your needs.

how to paste this code in macro option and change the range to (s3:s35) why it is not working ???? Fix it please