Autofilter error handler not working??

[wiegs187]

I have the following code to use auto filter to delete rows that have CusOrd in column B.

With ActiveSheet
.AutoFilterMode = False
With Range("B3", Range("B" & Rows.Count).End(xlUp))
.AutoFilter 1, "*CusOrd*"
On Error Resume Next
.Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
On Error GoTo 0
End With
.AutoFilterMode = False
End With


If there are no "CusOrd" to delete I get an error, even though I have the "On Error Resume Next". What is going wrong? I don't really know what the "On Error GoTo 0" means, I got this code from this message board. It was working great on everything up until this issue.

 

[venkat1926]

try this modification

Sub test()
With Range("B3", Range("B" & Rows.Count).End(xlUp))
.AutoFilter 1, "" * CusOrd * ""
On Error Resume Next
With .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
If WorksheetFunction.CountA(.Columns("A:A")) = 0 Then GoTo autofilterexit
.Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
autofilterexit:
.AutoFilter
End With
End Sub

for explanation of "on error goto0" see this explanation by Pearson

http://www.cpearson.com/excel/errorhandling.htm

 

[RoryA]

If you are getting an error on the delete line, then I would assume you have your VBE set to break on all errors (Tools-Options, General tab in the VBEditor)