My only suggestion would be to use Sheets instead of WorkSheets

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