Thread: Using Mutiple Error Handlers for Same Error Number

Hi all in correlation to my previous post, I maybe able to delete my query link
through few error checks. However,I'm not real sure how to set this up.

Here's my attempt to handle different existing conditions for the same error. I don't
think it is stepping through the code for each error handler they way I intended.

Sub Macro2()
Dim List1 As Label
Dim List2 As Label
Dim List3 As Label
' Macro2 Macro
' Macro recorded 2/11/2010 by BDB
'
 On Error GoTo errHandler
'
    Range("A6:C16").Select
    With ActiveSheet
    .QueryTables("IN Stock Status Report - 6896_13.IRP").Delete
errHandler:
On Error GoTo List1
 If Err.Number = 9 Then
    .QueryTables("IN Stock Status Report - 6896_12.IRP").Delete
    End If
List1:
On Error GoTo List2
If Err.Number = 9 Then
    .QueryTables("IN Stock Status Report - 6896_12.IRP").Delete
    .QueryTables("IN Stock Status Report - 6896_13.IRP").Delete
    End If
List2:
On Error GoTo List3
 If Err.Number = 9 Then
    .QueryTables("IN Stock Status Report - 6896.IRP").Delete
    End If
List3:
If Err.Number = 9 Then
MsgBox Err.Number
End If
Exit Sub

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$6:$C$16"), , xlYes).Name = _
        "List1"
    Range("A6:C17").Select
    End With
End Sub

Any help is appreciated.

Thanks,

BDB

Roy, I wanted this thread to be treated as a different problem/issue. This post is focused on dealing with handling multiple error handlers for the same error number (regardless of the error code #). I'm needing to fix this code so if it jumps into an error handler and the set of commands proceeding do not handle the error, then it will step to another error handler and run it's set of commands. I want to setup a chain of different conditions that it can run through until it finds a set of commands that will match the number of conditions that's causing the error.

I only wanted to reference this to the other post because the code I've put in this post show the same QueryTables that I'm trying to delete.

If this helps here's a link to my other thread.

http://www.excelforum.com/excel-prog...-wildcard.html

Thanks for any help in resolving either problem.

BDB

I've thought maybe something like this would work but I'm getting a

Compile Error:
Invalid or unqualified refernence

for what's highlighted

Sub Macro2()
Dim List1 As Label

' Macro2 Macro
' Macro recorded 2/11/2010 by BDB
'
 On Error GoTo errHandler
'
    Range("A6:C16").Select
    With ActiveSheet
    .QueryTables("IN Stock Status Report - 6896_12.IRP").Delete
    End With
     If Err.Number = 0 Then
     Exit Sub
     Else
      If Err.Number <> 0 Then
     On Error Resume Next
    .QueryTables("IN Stock Status Report - 6896_13.IRP").Delete
    .QueryTables("IN Stock Status Report - 6896_14.IRP").Delete
    .QueryTables("IN Stock Status Report - 6896.IRP").Delete
     End If
         If Err.Number = 9 Then
         On Error Resume Next
    .QueryTables("IN Stock Status Report - 6896_14.IRP").Delete
    .QueryTables("IN Stock Status Report - 6896.IRP").Delete
     End If
              If Err.Number = 9 Then
              On Error Resume Next
    .QueryTables("IN Stock Status Report - 6896.IRP").Delete
     End If
     End If
    Exit Sub

errHandler:
On Error Resume Next

BDB