Dim c As Comment
Dim Comment As String
Set c = ActiveCell.Comment
Comment = c.Text
Debug.Print "Question 1: " & Replace(Comment, c.Author & ":"
vbCrLf, "")
Debug.Print "Question 3: " & c.Parent.Addres
--
Nick
-----------------------------------------------------------------------
Nicke's Profile:
http://www.excelforum.com/member.php...nfo&userid=293
View this thread:
http://www.excelforum.com/showthread.php?threadid=26945