This should do it.

Sub comnt()
'assign cell value to a string variable
Range("a2").Select
Dim tst As String
tst = ActiveCell.Value
'apply variable to the desired location
Range("d2").NoteText tst

End Sub

"John Contact" wrote:

Hi,

Thanking you for any assistance in advance.

Can you please tell me if it is possible to use VBA to allow pasting into
cell comments. I am wanting to take info from one spreadsheet and insert it
as a cell comment in another.


Many regards


John