I think the below works, sorry for a false-alarm,,,
Jim

"Jim May" wrote in message
:

I'm trying to "transfer" info typed into a cell (activecell) into a the
comments box of another cell - but can't get it working...

Sub TransferComment()
Dim MyCell As String
Dim CSource As String
CSource = ActiveCell.Value
MyCell = Application.InputBox("What Cell do you want to paste
comment in?")
Range(MyCell).AddComment CSource
ActiveCell.ClearContents
End Sub