Comments Property Example

This example deletes all comments added by Jean Selva on the active sheet.

For Each c in ActiveSheet.Comments
    If c.Author = "Jean Selva" Then c.Delete
Next