setting comment text from VB code

I am needing to have VB code place text into the comment box of a series of
cells. Currently the text to be placed is being retrieved from other areas
and being held in a array. At the conclusion of another routine it needs to
be placed on a comparison page for comparing a group of choices. I have
tried using "Activecell.Comment = Comments(X)" where Comments(X) is the
array with the info. However this results in a error "Object does not
support this property or method". Honestly I am at a loss on how to
acomplish what I am wanting.

I have looked in the help documentation but was not able to locate what I
need. I appreciate all help given.

To find the Help just type comment, cursor into the middle of the word and
press F1.

To add a comment:

With Worksheets(1).Range("e5").AddComment
.Visible = False
.Text "reviewed on " & Date
End With

To modify a comment:

Worksheets(1).Range("E5").Comment.Text "reviewed again on " & Date

Fot the Active Cell:

With ActiveCell.AddComment
.Visible = False
.Text "reviewed on " & Date
End With

Regards

Trevor


"Brad Sumner" <BradSumner@discussions.microsoft.com> wrote in message
news:568B46D7-A363-4D71-AC9D-AEC4A83FAB46@microsoft.com...
>I am needing to have VB code place text into the comment box of a series of
> cells. Currently the text to be placed is being retrieved from other
> areas
> and being held in a array. At the conclusion of another routine it needs
> to
> be placed on a comparison page for comparing a group of choices. I have
> tried using "Activecell.Comment = Comments(X)" where Comments(X) is the
> array with the info. However this results in a error "Object does not
> support this property or method". Honestly I am at a loss on how to
> acomplish what I am wanting.
>
> I have looked in the help documentation but was not able to locate what I
> need. I appreciate all help given.

Range("E6").Select
Range("E6").AddComment
Range("E6").comment.Visible = False
Range("E6").comment.Text Text:="Happy Day"

is a syntax that works. In your case "Happy Day" would be replaced by an
element of your string array.
--
Gary's Student


"Brad Sumner" wrote:

> I am needing to have VB code place text into the comment box of a series of
> cells. Currently the text to be placed is being retrieved from other areas
> and being held in a array. At the conclusion of another routine it needs to
> be placed on a comparison page for comparing a group of choices. I have
> tried using "Activecell.Comment = Comments(X)" where Comments(X) is the
> array with the info. However this results in a error "Object does not
> support this property or method". Honestly I am at a loss on how to
> acomplish what I am wanting.
>
> I have looked in the help documentation but was not able to locate what I
> need. I appreciate all help given.