Macro to delete sheets from Sheet2 onwards

[howard]

I have tried to write code to delete all sheets from sheet2 onwards, but get subscript out of range and code below is highlighted

It would be appreciated if someone could kindly amend my code

 Worksheets(i).Delete

See full code below

 Sub delete_Sheets()
Application.DisplayAlerts = False
Dim i As Long
     For i = Worksheets(2).Index To Worksheets.Count
Worksheets(i).Delete
       
 Next i

 Application.DisplayAlerts = True
 
End Sub

 

[Ron de Bruin]

Try it like this if you want to keep the first sheet

For i = Worksheets.Count To 2 Step -1

 

[howard]

thanks Ron. the code works perfectly