Delete All Sheets between known Sheets?

Hi

you can select multiple sheets with holding down Ctrl key and then delete.

the key is whether or not the index positions of the sheet never change.... it is unlikely that this will be the case as the index position is not set by the position of the sheet within the workbook (as is visible) but by the order in which they are added....

If the index positions were always correct then you could use this:

Sub a()


Dim i, i2 As Integer


i = Sheets("0000a000").Index + 1
i2 = Sheets("9999z999").Index - 1


Do Until i > i2
    Sheets(i).Delete
i = i + 1
Loop


End Sub

In reality though you would be better off stating those sheet names that you do NOT want to delete and cycle the workbook

eg

Sub Sheet_Delete()


Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    Select Case ws.Name
        Case "Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "0000a000", "9999z999"
        Case Else
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
    End Select
Next ws


End Sub

So the first case statement lists those sheets you do not want deleted (no action is taken on that select case, it's simply an identifier), the Case Else will delete any sheet not listed in the previous case statement.
Doing it this way avoids index problems.
Turning the displayalerts off means you will not be prompted every time you delete a sheet (Do You Want to Delete This Sheet?), you must ensure you reinstate it once done however

Hope that helps.