Delete worksheets without loop

[Admin]

Found an interesting challenge here

Challenge is, delete all worksheets except one. I guess the one sheet would be the first one. Even if it's not the first one we can move to first.

Here is my attempt.

Sub kTest()
    Dim i   As Long, a
    i = Worksheets.Count
    a = Application.Transpose(Evaluate("Row(2:" & i & ")"))
    Worksheets(a).Select
    Application.DisplayAlerts = 0
    Worksheets(a).Delete
    Application.DisplayAlerts = 1
End Sub