VBA - for each clear cell

[jakobt]

Get a debug in the clear property


Sub RCInclude2()
Dim Cl As Range


For Each Cl In Range("J2", Range("J" & Rows.Count).End(xlUp))
If InStr(1, Cl.Value, "Include", 1) > 0 Then


Cl.Offset(, -2).Value.Clear

end if
end sub

 

[JoeMo]

Try:
Cl.Offset(, -2).Clear