Run-time error 13

[vba317]

I am writing a loop to loop through all the sheets in my workbook and delete sheets with no information in them. I keep on getting a run time error 13. Any help is appreciated. The name of the workbook is _Assists.xlt. The name of the sheets I want to loop through is Assists_1 through Assists_8

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

 

[dhookom]

I don't understand why you are using 2 loops. You are looping from 1 to 8 for each worksheet in the workbook. Why not just do one or the other loop?

Also, the question should have been posted in forum707.

Duane
Hook'D on Access
MS Access MVP

 

[vba317]

Sorry I will post it in the other forum.