ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How do I reverse page order in excel workbook? (https://www.excelbanter.com/excel-discussion-misc-queries/105302-how-do-i-reverse-page-order-excel-workbook.html)

vlm

How do I reverse page order in excel workbook?
 
I need to reverse the order of dozens of pages in an Excel workbook. I would
appreciate any advice. Thanks!

Andrew Taylor

How do I reverse page order in excel workbook?
 
If by "pages" you mean (work)sheets, the following macro will
do the trick (assuming no hidden sheets)

Sub ReverseSheets()
Dim s As Object, i As Integer, iNumSheets As Integer
iNumSheets = ActiveWorkbook.Sheets.Count
For i = 1 To iNumSheets
Set s = ActiveWorkbook.Sheets(1)
s.Move after:=ActiveWorkbook.Sheets(iNumSheets - i + 1)
Next
End Sub



vlm wrote:
I need to reverse the order of dozens of pages in an Excel workbook. I would
appreciate any advice. Thanks!




All times are GMT +1. The time now is 03:32 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com