Delete worksheets without loop

[Rick Rothstein]

My only suggestion would be to use Sheets instead of WorkSheets

Sheets(Application.Transpose(Evaluate("Row(2:" & Sheets.Count & ")"))).Delete

And a good suggestion it is!