циклы vba

[Othergirl]

В поиске про циклы выдает инфу только про C++, а нужно vba офис 2010

Не получается организовать цикл.
Привожу примеры:

в первом все работает,как часы

    'Sub Test1 (fill out Art/Doc)
        ThisWorkbook.Activate
        ActiveSheet.Range("C6").Select ' choosing cell C6, first cell in loop
                If ActiveCell.Value > 99999 And ActiveCell.Value <> "" Then
10                      If ActiveCell.Value < 500000 Then
                            ActiveCell.Offset(0, -1) = "Doc"
                            Else
                            ActiveCell.Offset(0, -1) = "Art"
                        End If
                Else: GoTo 20
                End If
20                  ActiveCell.Offset(1, 0).Select
                        If IsEmpty(ActiveCell.Value) = False Then
                            GoTo 10
                        Else: ActiveCell.Offset(1, 0).Select
                            If IsEmpty(ActiveCell.Value) = False Then
                                GoTo 10
                            Else: ActiveSheet.Range("C6").Select
                            End If
                        End If                                                                      'WORKS ALL SUB TEST1
       'Exit Sub ' Test1

А второй никак не поддается
находит первое значение, а на втором (где цикл начинается) выдает ошибку run time error 9

     'Sub Test3 (fill out names/description from archive)
            ActiveSheet.Range("C6").Select
            iArchive = "G:\Archive\ReformTech_Number_Register.xlsx"
            iAR = "Article register"
            iDR = "Document register"
            vValue = ActiveCell.Value
                 
                 Workbooks.Open Filename:=iArchive, ReadOnly:=True
                       
                       'add if open, do not open again
                       
                       
30                    Dim cForFind As Range
                       If vValue < 500000 Then                                              'works
                            Worksheets(iDR).Select
                            Else
                            Worksheets(iAR).Select                                        'works
                        End If
               
                   Set cForFind = Range("a1:a25000").Find(vValue, , xlValues, xlPart)
    
                        If cForFind Is Nothing Then
                            MsgBox "Art/Doc not found", vbExclamation
                        Else
                            ThisWorkbook.Activate
                            ActiveCell.Offset(0, 2) = cForFind.Offset(0, 1)
                            ActiveCell.Offset(0, 3) = cForFind.Offset(0, 2)
                        End If
                        
                        ActiveCell.Offset(1, 0).Select
                        vValue = ActiveCell.Value
                        If IsEmpty(ActiveCell.Value) = False Then
                            GoTo 30
                        Else: ActiveCell.Offset(1, 0).Select
                            If IsEmpty(ActiveCell.Value) = False Then
                                GoTo 30
                            Else: ThisWorkbook.Activate
                            ActiveSheet.Range("C6").Select
                            End If
                        End If
                    Exit Sub


'Exit Sub ' Test2

Объясните,пожалуйста,в чем разница. Никак не могу найти ошибку

[VictorM]

Управляющие структуры ... Циклы
Excel VBA

[Othergirl]

Когда читаешь теорию всегда все понятно, но конкретно...
Я пробовала вставить цикл Do until, но он ячейки пересчитывает, а значения из соседнего файла не берет. Есть основания полагать,что закралась ошибка, а может и не одна

[Othergirl]

Победила проблему с помощью Do until
Правда, в чем была ошибка, так и не поняла,
буду благодарна, если кто-нибудь объяснит