Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
vlm vlm is offline
external usenet poster
 
Posts: 1
Default 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!
  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 225
Default 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!


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
over, then down feature under page order in Excel kkw Excel Discussion (Misc queries) 3 February 7th 06 03:06 PM
HOW DO I CHANGE THE ORDER OF THE SHEETS IN EXCEL WORKBOOK? joanbaer New Users to Excel 4 August 5th 05 09:23 PM
Is it possible to print the pages of a workbook in reverse order? Bawbee Excel Discussion (Misc queries) 3 July 15th 05 03:13 PM
How to refresh a Excel workbook with pivot & ADO query report in batch mode Karen Middleton Excel Discussion (Misc queries) 1 April 29th 05 02:05 PM
Open excel from htm page den Excel Discussion (Misc queries) 0 April 25th 05 11:58 PM


All times are GMT +1. The time now is 08:37 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"