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.
Code: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
Bookmarks