Excel VisualBasic Script

Sub NamedArray()
    Dim myArray(10, 5)
    Dim i As Integer, j As Integer
    For i = 1 To 10
        For j = 1 To 5
            myArray(i, j) = i + j
        Next j
    Next i
    Names.add name:="FirstArray", RefersTo:=myArray
End Sub