Sắp xếp thứ tự tên các Sheet trong một File Excel

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")