Dim sVal as String
Windows("Deviation.xls").Activate
Range("C1").Select
sVal = Selection.Text
Windows("EVALUATION.xls").Activate
Range("M9").AddComment
Range("M9").Comment.Visible = False
Range("M9").Comment.Text Text:="Alex:" & Chr(10) _
& "" & sVal

--
Regards,
Tom Ogilvy



"alexm999 " wrote in message
...
Here's My Code:
Windows("Deviation.xls").Activate
Range("C1").Activate
Selection.Copy
Windows("EVALUATION.xls").Activate
Application.CutCopyMode = False
Range("M9").AddComment
Range("M9").Comment.Visible = False
Range("M9").Comment.Text Text:="Alex:" & Chr(10) & ""

I'm having dificuly copying and pasting into the comment field..
Can you help?


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