Good afternoon,

You could try something like this:

Sub Macro1()
Range("E4").Comment.Text Text:=Range("E1").Value
End Sub

to pick up the value of the cell note from cell E1 or

Sub Macro2()
Selection.Comment.Text Text:=Selection.Offset(0, -2).Value
End Sub

to pick up the value of the cell note from the cell two cells to the left

Hope this helps

Have a good weekend

Pete

"psmall" wrote:


I am trying to create a macro to create Comments in Cells from text in
adjacent cells. Is this possible?


--
psmall
------------------------------------------------------------------------
psmall's Profile: http://www.excelforum.com/member.php...o&userid=27647
View this thread: http://www.excelforum.com/showthread...hreadid=508147