Resume Next

[MikeDBMan]

Why does the line "On Error Resume Next" sometimes seem to not work? I have code:

On Error Resume Next
Sheets("cost summary").Select

If the sheet cost summary does not exist it should go to the next line of code, but I get "Runtime Error 9 Subscript out of range" on the select line shown. Why would this be?

 

[Smitty]

That should exclude it, although you generally don't need to select objects in order to work with them. What's after that?

Here's a better way to tackle that too. Instead of ignoring all errors, you can check if the sheet exists first:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Function</SPAN> SheetExists(SheetName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN><br>    <SPAN style="color:#007F00">' Returns TRUE if a sheet exists in the active workbook</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> x <SPAN style="color:#00007F">As</SPAN> Worksheet<br>        <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN><br>            <SPAN style="color:#00007F">Set</SPAN> x = ActiveWorkbook.Sheets(SheetName)<br>                <SPAN style="color:#00007F">If</SPAN> Err = 0 <SPAN style="color:#00007F">Then</SPAN> SheetExists = True _<br>                <SPAN style="color:#00007F">Else</SPAN> SheetExists = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN></FONT>

HTH,

 

[MikeDBMan]

You're right, I'll just check for its existence instead. Thanks.