Câu trả lời:
Xem xét:
Sub Killer()
j = Sheets.Count
For i = j To 3 Step -1
Sheets(i).Delete
Next i
End Sub
Nếu bạn thích, bạn có thể tắt Cảnh báo trước khi chạy vòng lặp.
Application.DisplayAlerts = False
và Application.DisplayAlerts = True
để tránh hộp xác nhận .