In diesem Beispiel werden im aktiven Blatt alle Kommentare gelöscht, die von Jean Selva hinzugefügt wurden.
For Each c in ActiveSheet.Comments If c.Autor = "Jean Selva" Then c.Delete Next