Delete selected worksheets

[hocs]

hi,

I would like to delete from worksheets(5) all the way to the last worksheets, both inclusive.
Please advise code.

Thanks!

 

[Misca]

This should work:

Dim i As Integer
Dim ws As Worksheet

Application.DisplayAlerts = False
For Each ws In Worksheets
    If i >= 5 Then ws.Delete
    i = i + 1
Next ws

Application.DisplayAlerts = True

 

[hocs]

thanks misca but this does not select worksheets(5) to the last worksheet of workbook..

 

[Trebor76]

Hi hocs,

Not sure why Misca's code doesn't work (looks like it should) but nonetheless here's my attempt:

Sub Macro1()
    
    Application.ScreenUpdating = False
    
    For Each Worksheet In ActiveWorkbook.Worksheets
        'If the current worksheet has an index number of 5 (i.e. it's the 5th _
        tab from the left [including any hidden sheet(s)], then...
        If Worksheet.Index = 5 Then
            '...turn alerts off and delete the tab.
            Application.DisplayAlerts = False
                Worksheet.Delete 'Note after deleting the Indexed 5th tab, the 6th Indexed tab becomes the 5th Indexed tab and so on.
            Application.DisplayAlerts = True
        End If
    Next Worksheet
    
    Application.ScreenUpdating = True
    
End Sub

HTH

Robert