VBA Code to Delete All Sheets/Tabs between two Specific Tabs/Sheets

[OilEconomist]

Thanks in advance for any suggestions which I will provide feedback.

Why does nothing happens when I run the following code as I'm trying delete all the sheets between the "Start" and "End" sheets?

Sub DltShts()


    'Dimensioning
        Dim i As Long


    'Turn off Screen Update
        Application.ScreenUpdating = False


    'Turn off Automatic Calculation
        Application.Calculation = xlManual


    'Delete sheets between "START" and "END"
        With ActiveWorkbook


            For i = .Worksheets("START").Index To .Worksheets("END").Index Step -1


                .Worksheets(i).Delete
        
            Next i
        
        End With


    'Turn on Screen Update
        Application.DisplayAlerts = True




End Sub

 

[Michael M]

Maybe try this way

Sub MM1()
  Dim X As Long
  Application.DisplayAlerts = False
  For X = Sheets("END").Index - 1 To Sheets("START").Index + 1 Step -1
    Sheets(X).Delete
  Next
  Application.DisplayAlerts = True
End Sub

 

[OilEconomist]

Thanks Michael M (Post #2 ). That worked perfectly!