Help fixing 'Subscript out of range' error

[cvrband]

I'm trying to teach myself about arrays and can't seem to figure this one out. (many Google searches)

I have the following code that I'm getting a 'subscript out of range' error:

<subscript out="" of="" range="">

Dim LastRow As Integer
Dim MyArray As Variant
Dim i As Integer

With Sheets("Testing")[INDENT]LastRow = .cells(.Rows.Count, 1).End(xlUp).Row

MyArray = Range("A5:A" & LastRow).Value

[/INDENT]
End With

For i = 0 To UBound(MyArray) - 1[INDENT]If IsNumeric(MyArray(i)) Then
(More code here)
[/INDENT]
Next
End Sub

In the "watch" window, MyArray is populating correctly and UBound(MyArray) provides the correct value, but the code produces an error at the 'If IsNumeric' line. "MyArray(i) = Subscript out of range <subscript out="" of="" range=""><subscript out="" of="" range="">" shows up when I hover over 'MyArray(i)'. What am I doing wrong?

</subscript>Thank you in advance for helping.</subscript></subscript>

 

[Fluff]

Whenever you populate an array direct from the sheet as you have, the default for the array is Base 1, so you need to change

For i = 0 To UBound(MyArray) - 1

to

For i = 1 To UBound(MyArray)

Also the array will be a 2d array so you need to use

If IsNumeric(MyArray(i,1)) Then

 

[DanteAmor]

Additional to Fluff's comments:

Sub test()
  Dim LastRow As[COLOR=#ff0000] Long ' Integer only reaches [FONT=&quot]32,767[/FONT][/COLOR]
  Dim MyArray As Variant
  Dim i As [COLOR=#ff0000]Long[/COLOR]
  
  With Sheets("Testing")
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    MyArray = [SIZE=2][COLOR=#ff0000][B].[/B][/COLOR][/SIZE]Range("A5:A" & LastRow).Value  '[COLOR=#ff0000]Missing point[/COLOR]
  End With
  
  For i = [COLOR=#ff0000]1 To UBound(MyArray)[/COLOR]
    If IsNumeric([COLOR=#ff0000]MyArray(i, 1)[/COLOR]) Then
      MsgBox [COLOR=#ff0000]MyArray(i, 1)[/COLOR]
    End If
  Next
End Sub

 

[Fluff]

MyArray = .Range("A5:A" & LastRow).Value 'Missing point

Well spotted

 

[DanteAmor]

Well spotted

Thanks Fluff

 

[cvrband]

Thank you both for your (extremely fast) responses. No more error . With all of my searches, I don't think that I ever came across the notation that pulling directly from the sheet was by default Base 1 - now I know. Thanks again!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.