n =  1 
    SVODKA2.MoveFirst
        For Each V In ctlArray
            For Each V2 In V
                If Not n >  14  Then
                    V2.Value = SVODKA2(n)
                End If
                n = n +  1  ' увеличивать увеличиваешь, а где n =  1 ?
            Next V2
        SVODKA2.MoveNext
        Next V
    SVODKA2.Close

        For Each V In ctlArray ' итерация по первому измерению'
            For Each V2 In V ' итерация по второму измерению'
            ...     
            Next V2
        Next V

        For Each V In ctlArray
            For Each V2 In V
                If Not n >  14  Then '( 1 )
                    V2.Value = SVODKA2(n)
                End If
                n = n +  1 
            Next V2
        SVODKA2.MoveNext
        Next V

Sub d()
    Dim a( 2 ), v, i&
    
    For i = LBound(a) To UBound(a)
        a(i) =  1 
    Next
    
    For Each v In a
        v =  2 
    Next
    
    For Each v In a
        Debug.Print v
    Next
End Sub

Private Sub Text2_AfterUpdate()
Dim v As Variant
    Set v = Me.Text2
MsgBox IsObject(v)   
    v.Value =  "!"  
MsgBox IsObject(v) & vbCrLf & v & vbCrLf & Me.Text2 'ПОЛЕ ИЗМЕНИЛОСЬ'
    v =  "!!"  '(1)
MsgBox IsObject(v) & vbCrLf & v & vbCrLf & Me.Text2 'ПОЛЕ НЕ ИЗМЕНИЛОСЬ'
    v.Value = "!!" 'ОШИБКА, в переменной уже не объект.'
[пропущено]

Sub Test()
Dim t( 0  To  3 ) As Long
Dim i&, j&, arr( 1  To  100000 ) As Variant, v, v1
    t( 0 ) = SystemTimer
    For Each v In arr
        For i =  0  To  2 
            v1 = v
        Next
    Next
    t( 1 ) = SystemTimer
    Debug.Print t( 1 ) - t( 0 ) '36'
    t( 2 ) = SystemTimer
    For i = LBound(arr) To UBound(arr)
        For j =  0  To  2 
            v1 = arr(i)
        Next
    Next
    t( 3 ) = SystemTimer
    Debug.Print t( 3 ) - t( 2 ) '41'
End Sub