For schleife nötig, bitte um Hilfe

Private Sub worksheet_change(ByVal Target As Range)
Dim WoIstJa As Range                 ' Variable Bereich
Dim DaIst As Range                   ' Variable Zelle
Dim lngZ As Long                     ' Zeile der DaIst-Zelle
Set WoIstJa = Intersect(Range("P4:P33"), Target)
If Not WoIstJa Is Nothing Then
Application.EnableEvents = False
For Each DaIst In WoIstJa
lngZ = DaIst.Row
If LCase(DaIst.Value) = "j" Then
Worksheets("Programm").Cells(lngZ, 3).ClearContents
End If
Next DaIst
Application.EnableEvents = True
End If
Set WoIstJa = Nothing                 ' Variable leeren
End Sub