Runtime error 13 2

[vba317]

I am getting a run time error 13 when I run my loops. I was hoping to figure out why.
I am trying to loop through 8 worksheets that are named Assists_1 through Assists_8.
Once a sheet has information populated in it the name of the sheet is changed to Assists_Name. So once the information is populated the only tabs remaining with the original names are empty so I would like to delete the sheets that don't have information in them.
Tom

For S = 1 To 8
        For Each ws In Workbooks("_Assists.xlt").Worksheets
            If ws.Name = "Assists_" & S Then ws.Delete
        Next ws
    Next S

 

[PHV]

What about this ?

For S = 1 To 8
    For Each ws In Workbooks("_Assists.xlt").Worksheets
        If ws.Name = "Assists_" & S Then ws.Delete: Exit For
    Next ws
Next S

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Hi,

Think about it: if your loop goes 8 times, and you have deleted any worksheet, what will happen when the loop counter exceeds the number or worksheet remaining?

Whenever you delete ANY object in a loop, make your loop count from highest downward, ie in reverse! Do not use For Each...Next.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[vba317]

Both guys thanks for your input. I figured it out.

S = 15
Do
S = S - 1
goXl.Sheets(S).Select
If goXl.ActiveSheet.Name = "Assists_" & S Then goXl.Sheets("Assists_" & S).Delete
Loop Until S = 1
goXl.DisplayAlerts = True