Macro for Pasting Comments into Cells

[Henry]

I have a List of Rows approximately 500 Rows Long in Column A. Each cell has a different Comment which is adjacent in Col B, same Row. I want to run a Macro or something that will Insert the Definition (Col B) into each respective cell's Comment in Col A, including Formatting the Comment if possible. Right now, I have to go through the Menu one at a time.
Thanks for the help.

Dim intCnt As Integer
intCnt = 1
With ActiveSheet
Do Until .Cells(intCnt, 1) = ""
.Cells(intCnt, 1).AddComment.Text .Cells(intCnt, 2).Value
intCnt = intCnt + 1
Loop
End With

[Henry]

Hi: I copied and pasted this into a macro sheet and nothing happened. Where do you start on the actual worksheet? Do you select the cell that has the Comment and Run or, do you select the cell that has the comment info then run?

Thanks

[Ivan F Moala]

On 2002-03-15 16:51, Henry wrote:
Hi: I copied and pasted this into a macro sheet and nothing happened. Where do you start on the actual worksheet? Do you select the cell that has the Comment and Run or, do you select the cell that has the comment info then run?

Thanks

Hi Henry
I believe you have to select the start of
your data in column A then run his macro.


Ivan

[nisht]

Friend,

Download a small file commentpasting from my website. It is in download section

http://www.pexcel.com/download.htm

nishith desai