How to Sort, Sheets with manual arrangement - Pandey Ji here is your solution
Pandey is maintaining huge numbers of sheets for his working and want to arrange it as per his requirement, so here is the solution.
Step 1: Insert new Sheet to get list of Sheets (renamed it with "List")
Step 2: Press Alt+F11 and go to Insert and Module
Step 3: Copy paste given below code to
Sub getSheetNames()
Dim i As Integer
i = 1
For Each Sheet In Sheets
Sheets("List").Cells(i, 1).Value = Sheet.Name
i = i + 1
'It will get all the sheets names at List sheet
Next
End Sub
Step 4: Press F5 or Run Macro
Step 5: Manual Arrange your order
Step 6: Type Formula as shown on screen
Step 7 : Copy all the cells except 1 (from 2 to last)
Step 8: Alt+F11
Step 9: Copy paste cells in between
Sub sortSheets()
'copy here
End Sub