Если строка в коде не м.б. выполнена, - пропустить и работать дальше?

[Ogeris]

Доброе утро!

Есть вот такой код:

Selection.AutoFilter Field:=4, Criteria1:="<>0", Operator:=xlAnd
ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
Selection.AutoFilter Field:=4

Проблема в том, что для второй строки не всегда создаются условия, и тогда, естественно, VBA выдаёт ошибку выполнения макроса.

Возможно ли прописать условие, что если вторая строка не может быть выполнена, следует её пропустить, и дальше выполнять код?

Заранее спасибо!

[Watcher_1]

Попробуйте так

Selection.AutoFilter Field:=4, Criteria1:="<>0", Operator:=xlAnd
On Error Resume Next
ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
On Error Goto 0
Selection.AutoFilter Field:=4

[Ogeris]

Получилось! Большущее спасибо!