Use this code to make sheets in order. Sub sheetorder() Dim i As Integer, j As Integer, x As Integer x = Sheets.Count On Error GoTo Errortrap: For i = 1 To x - 1 For j = 1 To x If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move Before:=Sheets(i) End If Next Next Sheets(1).Select Errortrap: End Sub
On Thu, Nov 27, 2008 at 11:43 PM, Sanjaykumar Bhola <[EMAIL PROTECTED]>wrote: > Hi Friends, > > Can anyone advise me, how can I arrange sheets in ascending order in excel > file? > > Thanks in advance. > > Regards, > Sanjaykumar > > > > --~--~---------~--~----~------------~-------~--~----~ Visit the blog to download Excel tutorials at http://www.excel-macros.blogspot.com To post to this group, send email to excel-macros@googlegroups.com For more options, visit this group at http://groups.google.com/group/excel-macros?hl=en Visit & Join Our Orkut Community at http://www.orkut.com/Community.aspx?cmm=22913620 Visit the blog to download Excel tutorials at http://www.excel-macros.blogspot.com To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com To see the Daily Excel Tips, Go to: http://exceldailytip.blogspot.com -~----------~----~----~----~------~----~------~--~---
