Adding Cell Commnets together

[Guest]

I am trying to string together the comments in several columns into a "Meta"
comment in the "Total" column. The idea is to bring together all of the rows
comments together as one large comment.

I have tried ths and severla other ways to accomplish my task, but cannot
get it to work.
For q = C To 3 Step -3
Dim cmt As Comment
Set cmt = Cells(i, q).Comment
Line_cmt = Cells(i, (C + 1))
If Not cmt Is Nothing Then
Line_cmt = Line_cmt & AddComment.Text
End If
Next q

 

[Tom Ogilvy]

for i = 1 to 10
Line_cmt = ""
For q = C To 3 Step -3
Line_cmt =lint_cmt & cells(i,q).NoteText
Next q
msgbox Line_cmt
cells(i,C+3).NoteText Line_cmt
Next i

If your final comment string exceeds 255 characters in length, then you will
need to use a loop at the end.

 

[Guest]

Tom Thanks a ton for the code fix, I thought I was going to kill myself. The
biggest problem was getting the variables Dim'd correctly, once I looked inot
the Help file I was on my way.