Excel: move cell comments to other cell

[galorin]

I would like to have a macro or something of that sort that will go through each tab on a spreadsheet, and if a cell has a comment, copy the text of that comment to another location.

So far, the only question I have, is how do I get at the comment in the cell?

 

[SkipVought]

Check out the Comments Collection. This "moves" the comment one cell to the right...

Sub test()
    Dim ws As Worksheet, cm As Comment
    For Each ws In Worksheets
      For Each cm In ws.Comments
        With cm
            .Parent.Offset(0, 1).AddComment .Text
            .Delete
        End With
      Next
    Next
End Sub

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]