Trong Excel không có tính năng để sắp xếp thứ tự các tên của các Sheet vì thế bạn cần phải thực hiện bằng Macro bên dưới
Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")