Friday, December 31, 2010

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)

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.

No comments:

Post a Comment