I have this code in a loop that saves a series of file to handle the error
created when the path doesn't exist. The first time a file throws an error
the GoTo Newpath exicutes correctly. When a second file produces the same
error it ignores the "On Error GoTo NewPath" statement and displays the 1004
Run Time Error message. If I hit debug and back the code up to the on error
statement it still fails. Any idea why On Error isn't working after the
initial hit?
Thanks,
John

On Error GoTo NewPath
Workbooks(Wcount + 1).SaveAs Filename:=vPath & "\" & SaveName, _
FileFormat:=xlNormal, PassWord:=vPassword, WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

NewPath:
If Err < 0 Then
MsgBox ("No L drive path for " & vPath & " file " & SaveName & "
saved to 77xx")
Workbooks(Wcount + 1).SaveAs "L:\North America\77xx\" & SaveName
Err = 0
On Error GoTo 0
End If

in your module, type resume, highlight it and hit F1

Without seeing the whole context of the code snippet, I would say:
Your error handler hasn't terminated until you execute a resume statement.
So when you continue to process and hit the second error, it looks to excel
like you have hit an error in the error handler. In frustration, excel/vba
gives up - raising the white flag.

fix your error handler to use a resume statement and you should be good.

--
Regards,
Tom Ogilvy


"John Hutcins" wrote:

I have this code in a loop that saves a series of file to handle the error
created when the path doesn't exist. The first time a file throws an error
the GoTo Newpath exicutes correctly. When a second file produces the same
error it ignores the "On Error GoTo NewPath" statement and displays the 1004
Run Time Error message. If I hit debug and back the code up to the on error
statement it still fails. Any idea why On Error isn't working after the
initial hit?
Thanks,
John

On Error GoTo NewPath
Workbooks(Wcount + 1).SaveAs Filename:=vPath & "\" & SaveName, _
FileFormat:=xlNormal, PassWord:=vPassword, WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

NewPath:
If Err < 0 Then
MsgBox ("No L drive path for " & vPath & " file " & SaveName & "
saved to 77xx")
Workbooks(Wcount + 1).SaveAs "L:\North America\77xx\" & SaveName
Err = 0
On Error GoTo 0
End If

That was it! I added a Resume statement and it works fine.
Thanks for your help,
John

"Tom Ogilvy" wrote:

in your module, type resume, highlight it and hit F1

Without seeing the whole context of the code snippet, I would say:
Your error handler hasn't terminated until you execute a resume statement.
So when you continue to process and hit the second error, it looks to excel
like you have hit an error in the error handler. In frustration, excel/vba
gives up - raising the white flag.

fix your error handler to use a resume statement and you should be good.

--
Regards,
Tom Ogilvy


"John Hutcins" wrote:

I have this code in a loop that saves a series of file to handle the error
created when the path doesn't exist. The first time a file throws an error
the GoTo Newpath exicutes correctly. When a second file produces the same
error it ignores the "On Error GoTo NewPath" statement and displays the 1004
Run Time Error message. If I hit debug and back the code up to the on error
statement it still fails. Any idea why On Error isn't working after the
initial hit?
Thanks,
John

On Error GoTo NewPath
Workbooks(Wcount + 1).SaveAs Filename:=vPath & "\" & SaveName, _
FileFormat:=xlNormal, PassWord:=vPassword, WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

NewPath:
If Err < 0 Then
MsgBox ("No L drive path for " & vPath & " file " & SaveName & "
saved to 77xx")
Workbooks(Wcount + 1).SaveAs "L:\North America\77xx\" & SaveName
Err = 0
On Error GoTo 0
End If