On Error GOTO seems to be ignored.

[TomCon]

I hvae the following loop:

While (True)
    On Error GoTo doneloop
    EnterWb.Activate
    ShtNam = "daily (" & i & ")"
    Which = ShtNam
    [COLOR=rgb(184, 49, 47)][B]Sheets(ShtNam).Select[/B][/COLOR]
    Call Process_Day_Code
'    FormSkipDays.Label1 = " Form is Modeless. End of Execution for " & _
'        ShtNam & ". Examine for correct data Update. Press OK to proceed, Cancel to end"
'    FormSkipDays.Show vbModeless
    i = i + 1
Wend

The idea is that when i is incremented beyond the value for which there exists a worksheet named "daily (i)", that the error handler instantiated takes the code out of the loop and on to the label "doneloop".

However, when the line highlighted in red is executed, VBA pops the error "Subscript out of range".

With that "on Error" statement in the code, shouldn't the action be to take the code execution out of the While loop and on to the line labeled "doneloop"?

Mystified!

Please let me know if you can explain what is going on here or how to make it work so that VBA does not throw an error and instead continues execution at the designated label in the code.

Thanks!

 

[DanteAmor]

Your code works for me.

It is not a good practice to use the On Error Goto statement, you could have different types of errors and you would not know what the error is. It is advisable to review possible errors with code.

I also recommend using, in this case, Do While instead of While:
Try the following code.

Sub test_without_error_handler()
  Dim EnterWb As Workbook
  Dim i As Long
  Dim ShtNam As String
 
  Set EnterWb = ThisWorkbook
  EnterWb.Activate
  i = 1
 
  Do While True
  
    ShtNam = "daily (" & i & ")"
    If Evaluate("ISREF('" & ShtNam & "'!A1)") Then
      Sheets(ShtNam).Select
      Call Process_Day_Code
      'FormSkipDays.Label1 = " Form is Modeless. End of Execution for " & _
      '    ShtNam & ". Examine for correct data Update. Press OK to proceed, Cancel to end"
      'FormSkipDays.Show vbModeless
      i = i + 1
  
    Else
      MsgBox "There are no more sheets"
      Exit Do
    End If
  
  Loop

' Here continues your code

End Sub

NOTE:

The other recommendation is, don't select the sheet, you should adjust your macro to reference the sheet without selecting it, but it can't help you more, because you didn't put your complete code.​

​

--------------
Let me know the result and I'll get back to you as soon as I can.
Cordially
Dante Amor
--------------​

 

[TomCon]

Yes this is great, great idea to use Evaluate(ISREF) in a test like that. Works perfectly for my purpose!

Just out of curiosity, though, shouldn't VBA branch to the labeled line when that sheet no longer exists, rather than throwing the error? It almost seems like a VBA bug to me, that the ON ERROR GOTO is being ignored.

Thanks!