Trying to set comment to Cell value

I want to set the comment to the value of a cell. However when I try to do
this I keep getting an error.

I've tried
ActiveCell.AddComment.ShtRef.Value and
ActiveCell.AddComment.Range("A1").Value and
ActiveCell.AddComment.Cells(R1 - 68, CurMth)
Any ideas

Hi Jeff,

Try:

ActiveCell.Comment.Text ActiveCell.Value


---
Regards,
Norman



"Jeff" <Jeff@discussions.microsoft.com> wrote in message
news:C66AFBC8-2CCA-41FA-8155-C489C573951D@microsoft.com...
>I want to set the comment to the value of a cell. However when I try to do
> this I keep getting an error.
>
> I've tried
> ActiveCell.AddComment.ShtRef.Value and
> ActiveCell.AddComment.Range("A1").Value and
> ActiveCell.AddComment.Cells(R1 - 68, CurMth)
> Any ideas

Hi Jeff,

Or, to insert a comment ans set the comment text to thw cells value, try:

With ActiveCell
.AddComment Text:=.Value
End With

---
Regards,
Norman



"Jeff" <Jeff@discussions.microsoft.com> wrote in message
news:C66AFBC8-2CCA-41FA-8155-C489C573951D@microsoft.com...
>I want to set the comment to the value of a cell. However when I try to do
> this I keep getting an error.
>
> I've tried
> ActiveCell.AddComment.ShtRef.Value and
> ActiveCell.AddComment.Range("A1").Value and
> ActiveCell.AddComment.Cells(R1 - 68, CurMth)
> Any ideas