Delete Multiple worksheets

You can use this code to delete multiple sheet without loop

Sub DeleteSheet()

Application.DisplayAlerts = False

    Worksheets(Array("Sheet1", "Sheet1", "Sheet1")).Delete

Application.DisplayAlerts = True

End Sub