Использование массива в цикле

[motorway]

Как правильно использовать массив в цикле, чтобы он каждый раз был новым?

For Each cell In Range("B1:B11")

parts = Split(cell, " ")
...

Пишет: array is fixed or temporary blocked

[The_Prist]

А как переменную parts объявили? Попробуйте объявить как Variant.

[motorway]

Сначала никак, потом пробовал объявлять как Dim parts() as string и др.
Где ее нужно объявлять?

Если объявить вне цикла (и в нем тоже) Dim parts() As Variant, пишет Type mismatch для parts = Split(cell, " ")
Если в цикле Dim parts As Variant, ошибка та же, что и сначала

[The_Prist]

Объявлять нуна в начале кода, перед выполнением цикла.

Sub Some_Macros
Dim parts
Dim Cell as Range
For Each cell In Range("B1:B11")
parts = Split(cell, " ")
next Cell
'и т.д.
End Sub

[motorway]

Похоже, то, что надо, но за это время уже эта ошибка меня так достала, что я решил делать по-другому, через for, и там как-то получилось от этого уйти. К тому же были другие проблемы. Но все равно спасибо