Delete all sheets after a specific sheetname

[betotototo]

Hi all,

I'm trying to figure out a vba code that will delete all sheets after a specific sheet NAME. I've found ones that will delete after a specific count (30 in this case):

Sub DeleteSheets()
    Dim lngLoop As Long
    
    If ThisWorkbook.Worksheets.Count > 30 Then
        Application.DisplayAlerts = False
        For lngLoop = ThisWorkbook.Worksheets.Count To 31 Step -1
            ThisWorkbook.Worksheets(lngLoop).Delete
        Next lngLoop
        Application.DisplayAlerts = True
    End If

End Sub

But for my workbook, I want to delete everything after the sheet "TOI." There could be an infinite amount of sheets before "TOI." Can anyone help me reference that specific sheet and delete everything after it?

Thanks in advance.

PS: Brand spanking new to vba.

 

[pgc01]

Hi
Welcome to the board

I got confused with the words. You mention you'd like to delete sheets but in the code you only refer to worksheets.

Do you want to delete all sheets after "TOI." or only the sheets type worksheet?
Does your workbook only have sheets type worksheet or does it have also chart sheets?

 

[VoG]

Try

Sub DeleteSheets()
Dim i As Long
Application.DisplayAlerts = False
For i = Worksheets.Count To Sheets("TOI.").Index + 1 Step -1
   Worksheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

 

[betotototo]

I'm sorry, I didn't realize there was a difference in sheets or worksheets or chart sheets.

The code I reference is just something that I found somewhere on the internet that seemed to do almost what I wanted.

VoG - I get an error: Run-time error'9': Subscript out of range. But after removing the period in "TOI." (I think that might have been a typo?) it worked perfectly!

Thanks guys for your help.