Error Trapping Still Not Working

[Ken]

In the code below I have extracted all the miscellaneous
lines.

When I run the macro, if the text file that I am trying to
open (F851.txt) does not exist, the macro fails at
the "Workbooks.OpenText...." line. It does not go to
the "Errhandler."

Any ideas why?

----------------------------

Sub Payables()

'Turn off warnings, auto recalc, etc.
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

ChDir "C:\Downloads"

On Error GoTo Errhandler

Workbooks.OpenText Filename:="C:\Downloads\F851.txt",
Origin:=xlWindows, _
StartRow:=4, DataType:=xlFixedWidth,
FieldInfo:=Array(Array(0, 2), Array(15 _
, 2), Array(25, 2), Array(37, 2), Array(53, 3),
Array(65, 1), Array(71, 1), Array(91, 1), _
Array(111, 1))

End_it:
'Turn on warnings, auto recalc, etc.
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Exit Sub

Errhandler:
MsgBox "Error occured"
Resume End_it

End Sub

 

[Alan Beban]

It works for me in xl2000 Sr-1. Have you tried to run this
stripped-down version that you posted?

Alan Beban

 

[Frank Kabel]

Hi
one idea (as this works for me): In the VBA editor goto 'Tools -
Options - General' and check the setting for 'error interruptions'.
should be the last of the three options

 

[Ken]

My bad, sorry.

I had the error trapping option set to "Break on All
Errors."