Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Sort Worksheet Names?
Is there any way to sort worksheet names?
Win XP Pro Office 2003 & 2007 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Sort Worksheet Names?
Sub SortArk()
Dim sh() ReDim sh(Sheets.Count) Application.ScreenUpdating = False For t = 1 To Sheets.Count sh(t) = Sheets(t).Name Next For t = 1 To Sheets.Count For tt = t To Sheets.Count If sh(t) sh(tt) Then x = sh(t): sh(t) = sh(tt): sh(tt) = x Next Next For t = 1 To Sheets.Count Sheets(sh(t)).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub "Stan" skrev: Is there any way to sort worksheet names? Win XP Pro Office 2003 & 2007 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Sort Worksheet Names?
Thank you!
I am a complete newby! How and where do I enter all that? Perhaps there's a tutorial somewhere on the internet to assist me? "excelent" wrote in message ... Sub SortArk() Dim sh() ReDim sh(Sheets.Count) Application.ScreenUpdating = False For t = 1 To Sheets.Count sh(t) = Sheets(t).Name Next For t = 1 To Sheets.Count For tt = t To Sheets.Count If sh(t) sh(tt) Then x = sh(t): sh(t) = sh(tt): sh(tt) = x Next Next For t = 1 To Sheets.Count Sheets(sh(t)).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub "Stan" skrev: Is there any way to sort worksheet names? Win XP Pro Office 2003 & 2007 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Sort Worksheet Names?
You could install the ASAP UTILITIES:
http://www.asap-utilities.com/ You get an extra menu, en you can easily sort worksheets alphabetically. Success! "Stan" <we@there schreef in bericht ... Is there any way to sort worksheet names? Win XP Pro Office 2003 & 2007 |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Sort Worksheet Names?
in your sheet hit ALT+F11
select module in Insert-menu paste code here return to sheet hit ALT+F8 select macro at hit run "Stan" skrev: Thank you! I am a complete newby! How and where do I enter all that? Perhaps there's a tutorial somewhere on the internet to assist me? "excelent" wrote in message ... Sub SortArk() Dim sh() ReDim sh(Sheets.Count) Application.ScreenUpdating = False For t = 1 To Sheets.Count sh(t) = Sheets(t).Name Next For t = 1 To Sheets.Count For tt = t To Sheets.Count If sh(t) sh(tt) Then x = sh(t): sh(t) = sh(tt): sh(tt) = x Next Next For t = 1 To Sheets.Count Sheets(sh(t)).Move after:=Sheets(Sheets.Count) Next Application.ScreenUpdating = True End Sub "Stan" skrev: Is there any way to sort worksheet names? Win XP Pro Office 2003 & 2007 |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Sort Worksheet Names?
See
http://www.mvps.org/dmcritchie/excel/getstarted.htm In article , "Stan" <we@there wrote: How and where do I enter all that? Perhaps there's a tutorial somewhere on the internet to assist me? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I sort a list of names | Excel Discussion (Misc queries) | |||
List of names sort | Excel Discussion (Misc queries) | |||
How to sort Worksheet names? | Excel Discussion (Misc queries) | |||
sort last names by in alphabetical order | Excel Discussion (Misc queries) | |||
sort names | Excel Discussion (Misc queries) |