Upper & Lower case problem in VBA

I have the following formula to lock cells if the value in col I = X but
sometimes it may be a lowercase x. How can this be adapted to lock the
cells no matter if the x is upper or lower case?

For Each cell In ActiveSheet.Range("I13:I1000")
With cell
.Offset(0, -7).Resize(1, 8).Locked = .Value = "X"
End With
Next cell

one way:

For Each cell In ActiveSheet.Range("I13:I1000")
With cell
.Offset(0, -7).Resize(1, 8).Locked = UCase(.Text) = "X"
End With
Next cell

In article <eWR1sywDFHA.1836@tk2msftngp13.phx.gbl>, "Rob" <NA> wrote:

> I have the following formula to lock cells if the value in col I = X but
> sometimes it may be a lowercase x. How can this be adapted to lock the
> cells no matter if the x is upper or lower case?
>
> For Each cell In ActiveSheet.Range("I13:I1000")
> With cell
> .Offset(0, -7).Resize(1, 8).Locked = .Value = "X"
> End With
> Next cell

Thanks JE,
Works great and such a minor change too as I was expecting some complex
code.

Rob

"JE McGimpsey" <jemcgimpsey@mvps.org> wrote in message
news:jemcgimpsey-B43100.18122609022005@msnews.microsoft.com...
> one way:
>
> For Each cell In ActiveSheet.Range("I13:I1000")
> With cell
> .Offset(0, -7).Resize(1, 8).Locked = UCase(.Text) = "X"
> End With
> Next cell
>
> In article <eWR1sywDFHA.1836@tk2msftngp13.phx.gbl>, "Rob" <NA> wrote:
>
>> I have the following formula to lock cells if the value in col I = X but
>> sometimes it may be a lowercase x. How can this be adapted to lock the
>> cells no matter if the x is upper or lower case?
>>
>> For Each cell In ActiveSheet.Range("I13:I1000")
>> With cell
>> .Offset(0, -7).Resize(1, 8).Locked = .Value = "X"
>> End With
>> Next cell