Sub DynArray()
Dim counter As Integer
Dim myArray() As Integer
ReDim myArray(5)
Dim myValues As String
For counter = 1 To 5
myArray(counter) = counter + 1
myValues = myValues & myArray(counter) & Chr(13)
Next
ReDim Preserve myArray(10)
For counter = 6 To 10
myArray(counter) = counter * 8
myValues = myValues & myArray(counter) & Chr(13)
Next counter
Debug.Print myValues
For counter = 1 To 10
Debug.Print myArray(counter)
Next counter
End Sub