Error handling in a loop

[tiredofit]

Which of the two methods below are preferable?

Method1 with error handling:

Sub Start()

On Error GoTo Errhandler

For Counter = 1 To 1000
            
            i = 1
            
            Do Until TableArray(i, 1) = MyArray(j, 1)
                
                i = i + 1
                
            Loop
                                    
NextCounter:
            
            j = j + 1
            
        Next Counter

Exit Sub

Errhandler:

Resume NextCounter

End sub

or Method2, skipping over errrors?

Sub Start2()

On Error Resume Next

For Counter = 1 To 1000
            
            i = 1
            
            Do Until TableArray(i, 1) = MyArray(j, 1)
                
                i = i + 1
                
            Loop
            
            j = j + 1
            
        Next Counter

End Sub

Thanks

 

[Caleeco]

I would say in their current form they are of equal value. As they will achieve the same end result (skip to the next iteration). Method 1 is preferable in the following 2 instances:
1. To catch an unforseen error, occuring
2. When you wish to take further action following an error, eg. display a message box or Exit/Stop the code execution.

If you are confident of which errors you expect to occur, and you are happy to ignore them Method 2 would suffice but is generally less preferred with more complex modules/code

Hope that helps
Caleeco

 

[tiredofit]

Thanks