Форум по VBA и MS Office

Хочу из столбца Excel получить массив в VBA. В массив С записать 10 строк 3-го столбца:

Макрос 1

Sub ttt()
Dim C(10)
For i=1 to 10
C(i)=Cells(i,3).Value
Next i
End Sub

[свернуть]

Все получается!

Хочу создать два массива, происходит ошибка на втором Cells:

Макрос 2

Sub ttt()
Dim C(10)
Dim A(10)
For i=1 to 10
C(i)=Cells(i,3).Value
Next i
For i=1 to 10
A(i)=Cells(i,1).Value
Next i
End Sub

[свернуть]

Макрос 2 работает без ошибок.

Для информации
Этот код создаст в массиве не десять ячеек, а одиннадцать. У первого элемента порядковый номер будет 0:
Dim C(10)

Спасибо. Попробовал на другом компьютере, все получается.