S
Stan
Is there any way to sort worksheet names?
Win XP Pro
Office 2003 & 2007
Win XP Pro
Office 2003 & 2007
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
E
excelent
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:
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:
S
Stan
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?
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?
F
Frederik
You could install the ASAP UTILITIES:
http://www.asap-utilities.com/
You get an extra menu, en you can easily sort worksheets alphabetically.
Success!
http://www.asap-utilities.com/
You get an extra menu, en you can easily sort worksheets alphabetically.
Success!
E
excelent
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:
select module in Insert-menu
paste code here
return to sheet
hit ALT+F8
select macro at hit run
"Stan" skrev:
J