Reverse order of the sheets

Sub reverse_sheet_order()

Dim TotalSheets As Integer
TotalSheets = ActiveWorkbook.Sheets.Count

For i = 1 To TotalSheets
Sheets(TotalSheets).Move before:=Sheets(i)
Next


End Sub

This macro is used to reverse the order of sheets in Active workbook. Rerun the macro to get the original order of sheets.