Sub arrayTest2() Dim i As Integer Dim intMyScores(10) As Integer For i = LBound(intMyScores) To UBound(intMyScores) intMyScores(i) = i Next For i = 0 To 10 Debug.Print "For array element " & i & " the number is " & intMyScores(i) Next End Sub