Error 9

[backup69]

Hi all

Why my code stop on the second error "Subscript out of range"?

Dim LC As Integer, FB As Integer
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Worksheets
On Error GoTo nextsh
LC = Ws.Range([A1], Ws.UsedRange).Columns.Count
ActiveWindow.View = xlPageBreakPreview

FB = Ws.VPageBreaks(1).Location.Column

'here i have other commands

nextsh:
Next Ws

FB = Ws.VPageBreaks(1).Location.Column
If first sheet give me error here, code jump to the errorhandler(nextsh). But if this part of code give error second time i got orror on the screen and code stop.

 

[lozzablake]

what do you mean by the second error. Do you mean the second line?

 

[erik.van.geit]

Hi,

you need to HANDLE the error
when a second error occurs before the first has been handled you get a bug

see
http://www.mrexcel.com/board2/viewtopic.php?t=196175

most simple solution:

nextsh:
Err.Clear
Next Ws

see Error and Err in the helpfiles

kind regards,
Erik

 

[backup69]

no

If my code check the first sheet and got error because sheet dont have pagebreakes and this is ok. Other code ignored and i want check next sheet. But now in the same place where i check pagebreake my code stop and not ignore error like i want "On Error GoTo nextsh".

 

[Norie]

Why not check for page breaks instead of relying on error handling?

If Ws.VPageBreaks.Count<>0 Then
   ' do stuff
Else
   Msgbox Ws.Name & " has no vertical page breaks."
End If

 

[backup69]

Yes Norie you right
And ty erik to for your link
in my case simple Err.Clear not working but solution is:

On Error Resume Next
FB = Ws.VPageBreaks(1).Location.Column 
if err.number = 9 then goto nextsh

nextsh: 
Err.Clear 
Next Ws

Ty all