Hi
Could be because your code does not increment the value of i in the loop?

"NacellesEng" wrote:

> I have a lot of code, but the critical portion of it is an array check:
>
> Dim loadcases() As Variant
> loadcases = Array(1010!, 1020!.....etc)
> Do Until Mid(ActiveCell.Value, 3, 4) = loadcases(i)
> If ActiveCell.Value = "END" Then Exit Do
> ActiveCell.Offset(1, 0).Select
> Loop
>
> I manually assign values to my array as show of 4 digit numbers and
> then check a cell for the matching value. The cells actual value looks
> something like this:
> LC10101000000000
>
> Why is is that can not find the match? I have checked both my MID
> statement with a MsgBox to make sure it was pulling the 1010 and I
> checked the loadcase(i) to make sure that also had 1010. But I never
> finds the match. Any ideas? Thanks!
>
>