Hi P,

Try:

'=============
Public Sub Tester()
Dim rng As Range
Dim rCell As Range
Dim sStr As String

Set rng = Selection '<<==== CHANGE

For Each rCell In rng.Cells
With rCell
On Error Resume Next
.Offset(0, 1).Comment.Delete
On Error GoTo 0
.Offset(0, 1).AddComment Text:=.Text
End With
Next rCell
End Sub
'<<=============


---
Regards,
Norman



"psmall" wrote in
message ...

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