Help with code
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
|