Error Handling: GoTo Err1 Help.

[Wamhoi]

I can't get my error handeling to work. It breaks on the following line. Any Ideas?

On Error GoTo Err1 ' Breaks here "Compile error: Label not Defined"

Range("A10").Select
Range("Master").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Group"), CopyToRange:=Range("A1:K1"), Unique:=False

On Error GoTo 0

End Sub

Err1:
Sheets("NYFilter").Rows("1:1").ClearContents
Sheets("Prior-NYFilter").Rows("1:1").Copy
Sheets("NYFilter").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Resume
End Sub

 

[VoG]

Try

On Error GoTo Err1 ' Breaks here "Compile error: Label not Defined"
 
Range("A10").Select
Range("Master").AdvancedFilter Action:=xlFilterCopy,  CriteriaRange:=Range("Group"), CopyToRange:=Range("A1:K1"), Unique:=False
 
On Error GoTo 0
 
Exit Sub
 
Err1:
    Sheets("NYFilter").Rows("1:1").ClearContents
    Sheets("Prior-NYFilter").Rows("1:1").Copy
    Sheets("NYFilter").PasteSpecial Paste:=xlPasteValues,   Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
Resume
End Sub

 

[Wamhoi]

Thank you so much! I had a follow up question. Using the same code, if Err1 doesn't fix the problem, I believe it begins to loop endlessly. Is there anyway to avoid that?

 

[VoG]

Maybe like this

On Error GoTo Err1 ' Breaks here "Compile error: Label not Defined"
 
Range("A10").Select
Range("Master").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Group"), CopyToRange:=Range("A1:K1"), Unique:=False
 
On Error GoTo 0
 
Exit Sub
 
Err1:
    If ErrorCount > 1 Then Exit Sub
    ErrorCount = ErrorCount + 1
    Sheets("NYFilter").Rows("1:1").ClearContents
    Sheets("Prior-NYFilter").Rows("1:1").Copy
    Sheets("NYFilter").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
Resume
End Sub

 

[Wamhoi]

You are the BEST! ray: