delete sheets after a certain tab

[daveyc18]

hi,

im wondering if there's a way via vba to delete any sheets to the right of the "summary" tab in my workbook.

 

[alansidman]

Are there any sheets to the left of the summary sheet

 

[daveyc18]

Are there any sheets to the left of the summary sheet

yes, there are.

 

[Fluff]

How about

Sub daveyc18()
   Dim i As Long
   
   Application.DisplayAlerts = False
   For i = Sheets("Summary").Index + 1 To Sheets.Count
      Sheets(i).Delete
   Next i
   Application.DisplayAlerts = True
End Sub

 

[KennyGreens]

You need to delete backwards from the last sheet to the Summary sheet since after you delete a sheet, the Sheets.Count will get throw off and going forward it won't delete that last sheet. Try this:

Sub dsheet()
Application.DisplayAlerts = False
Dim i As Integer

For i = Sheets.Count To Sheets("Summary").Index + 1 Step -1
    Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

 

[daveyc18]

You need to delete backwards from the last sheet to the Summary sheet since after you delete a sheet, the Sheets.Count will get throw off and going forward it won't delete that last sheet. Try this:

Sub dsheet()
Application.DisplayAlerts = False
Dim i As Integer

For i = Sheets.Count To Sheets("Summary").Index + 1 Step -1
    Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

worked like a charm..thanks

 

[KennyGreens]

No problem, happy to help.