I'd like to clear values from myRange under either of the following conditions

If the cell doesn't contain a formula OR if the cell is locked.

I have the following CODE

For Each r In myRange
Debug.Print r.Row, r.Formula, r.locked

If r.Formula = No Then
r.ClearContents
End If
Next r

I see that r.formula returns No when there is a formula and r.locked returns
True or False.

I figured it out. I forgot to remove a more global clearcontents line.

"Barb Reinhardt" wrote:

> I'd like to clear values from myRange under either of the following conditions
>
> If the cell doesn't contain a formula OR if the cell is locked.
>
> I have the following CODE
>
> For Each r In myRange
> Debug.Print r.Row, r.Formula, r.locked
>
> If r.Formula = No Then
> r.ClearContents
> End If
> Next r
>
> I see that r.formula returns No when there is a formula and r.locked returns
> True or False.

For Each r In myRange
If Not r.HasFormula Or r.Locked Then
r.ClearContents
End If
Next r


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Barb Reinhardt" <(E-Mail Removed)> wrote in message
news:CC2DA340-94C3-4D79-BB32-(E-Mail Removed)...
> I'd like to clear values from myRange under either of the following
conditions
>
> If the cell doesn't contain a formula OR if the cell is locked.
>
> I have the following CODE
>
> For Each r In myRange
> Debug.Print r.Row, r.Formula, r.locked
>
> If r.Formula = No Then
> r.ClearContents
> End If
> Next r
>
> I see that r.formula returns No when there is a formula and r.locked
returns
> True or False.