динамический массив?

[gramp]

Код для примера
Sub c1()
Dim ttt() As Integer
Dim i As Integer
For i = 0 To 20
Worksheets("11").Cells(i + 5, 1).Value = i
ttt(i) = i + 1
Worksheets("11").Cells(i + 5, 2).Value = ttt(i)
Worksheets("11").Cells(i + 5, 3).Value = "ttt(" & i & ")"
Next i
End Sub

показывает ошибку в строке
ttt(i) = i + 1
описание ошибки - нет переменных
если же вместо
Dim ttt() As Integer
написать
Dim ttt(0 To 20) As Integer
то все работает
вопрос - почему не работает
Dim ttt() As Integer
хотя в букварях написано, что если скобки оставить пустыми - то это динамический массив, который будет заполняться по ходу

[nilem]

Сообщение от gramp

...хотя в букварях написано, что если скобки оставить пустыми - то это динамический массив, который будет заполняться по ходу

Читаем букварь дальше: прежде чем использовать массив, нужно определить его размер
ReDim ttt(20)
И тогда все получается:

Sub ccc()
Dim ttt() As Integer, i As Integer
ReDim ttt(20)
For i = 0 To 20
    ttt(i) = i + 1
    With Worksheets("11")
        .Cells(i + 5, 1).Value = i
        .Cells(i + 5, 2).Value = ttt(i)
        .Cells(i + 5, 3).Value = ttt(i) & " (" & i & ")"
    End With
Next i
End Sub

[gramp]

благодарю)