Can't get the right count

[TheJenson]

I'm using a simple Do Loop to establish a count of excel entries for reDim'ing some dynamic arrays and for some reason which i have not yet been able to determine my counter counts one too many. Here is my code:

Do Until ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Range("A1").Select
    x = x + 1
Loop

When I reDim my arrays they still start correctly with the first array entry being array(0), but there is always one extra entry containing nothing because my counter is off. Any help would be much appreciated. Thanks!

 

[shg]

ReDim your arrays 0 to x-1, or 1 to x

 

[TheJenson]

Thanks for the simple fix, worked great.

 

[shg]

You're welcome.

Explicitly declaring the lower bounds of arrays is a good habit to get into.