Hi
in this case you already have a comment in cell M9. Try the following
change:
.....
with wks_target.range("M9")
on error resume next
.AddComment
on error goto 0
.Comment.Visible = False
Comment.Text Text:="Alex:" & Chr(10) & _
wks_source.range("A1").value
end with
end sub


--
Regards
Frank Kabel
Frankfurt, Germany


Running into error with the:
AddComment line


---
Message posted from http://www.ExcelForum.com/