Inserting notes into range of cells

[mr.guy]

I am new to VB and am struggling to find a more elegant way of inserting comments into a range of cells (c2:d35) so have brute forced it. I would also like to autosize the comments but don't want to create this the same way as I have inserted the comments. Any help you can provide would be much appreciated.

Here is the code to insert the comments, I have eliminated the all but the last line.
range("d35").AddComment range("Cd35").Value

Here is the code where I re-size the comment fields. Again it works but I don't want to retype it all in for each cell range.

Set mycomment = range("c2") '.Comment
mycomment.Comment.Shape.TextFrame.AutoSize = True
mycomment.Comment.Visible = True

Thanks in advance for your help.

 

[mjbeam]

For tRow = 2 To 35
    On Error Resume Next
    Cells(tRow, 4).ClearComments
    On Error GoTo 0
    
    Cells(tRow, 4).AddComment
    Cells(tRow, 4).Comment.Text Text:=Cells(tRow, 3).Text
    Cells(tRow, 4).Comment.Shape.TextFrame.AutoSize = True
    Cells(tRow, 4).Comment.Visible = True
Next tRow

 

[mr.guy]

Sweet, works perfect. Thanks for your help mjbeam!