Comment.Next Method (Excel)
Returns a Comment object that represents the next comment.
Syntax
expression .Next
expression An expression that returns a Comment object.
Return Value
Comment
Remarks
This method works only on one sheet. Using this method on the last comment on a sheet returns Null (not the next comment on the next sheet).
Example
This example shows every second comment, navigating with the next method.
Note
Please test in a new workbook with no existing comments. To clear all comments from a workbook use Selection.SpecialCells(xlCellTypeComments).delete in the Immediate Pane.
'Sets up the comments
For xNum = 1 To 10
Range("A" & xNum).AddComment
Range("A" & xNum).Comment.Text Text:="Comment " & xNum
Next
MsgBox "Comments created... A1:A10"
'Deletes every second comment in the A1:A10 range
For yNum = 1 To 10 Step 2
Range("A" & yNum).Comment.Next.Shape.Select True
Selection.Delete
Next
MsgBox "Deleted every second comment"