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