Excel Forum

Code: Select all

Sub DeleteNewSheet()
    Dim wsc As Integer, i As Long
    wsc = ThisWorkbook.Worksheets.Count
    Application.DisplayAlerts = False
    For i = wsc To 2 Step -1
        ThisWorkbook.Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

Code: Select all

Sub DeleteNewSheet()
    Dim wsc As Integer, i As Long
    wsc = ThisWorkbook.Worksheets.Count
    Application.DisplayAlerts = False
    For i = wsc To Worksheets("Time").Index + 1 Step -1
        ThisWorkbook.Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub