Delete all sheets of data but sheet1 VBA

[Lenna]

Please suggest a VBA code that would delete all sheets in a workbook but sheet1.

Thanks,

Lenna

 

[VoG]

Try

Sub ctest()
Dim i As Long
Application.DisplayAlerts = False
For i = Sheets(Sheets.Count) To 2 Step -1
    Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

 

[Lenna]

Thanks!