Kommentare löschen

Sub Kommentar()
Dim i%
Range(Cells(10, 8), Cells(100, 8)).ClearComments
For i = 10 To 100
Cells(i, 8).AddComment Cells(i, 88).Text
Next i
End Sub

Nun möchte ich diese modifizieren.
Wenn in der entsprechenden Zelle in der Spalte 88 der Wert "x" steht soll der Kommentar
in der spalte 8 steht gelöscht werden!
Z.B. steht in CJ20 der Wert x dann soll der Kommentar in H20 gelöscht werden!
Was muss ich machen.
Danke für Deine Hilfe!
Gruß
Alex