worksheet sorting
Hi,
does somebody know that how can I sort worksheets by name in a workbook? thanks in advance -- sisco98 |
http://www.cpearson.com/excel/sortws.htm
-- HTH Bob Phillips "sisco98" wrote in message ... Hi, does somebody know that how can I sort worksheets by name in a workbook? thanks in advance -- sisco98 |
you could try this:
Sub Test() Dim wsAfter As Integer Dim wsBefore As Integer For wsAfter = 1 To Worksheets.Count For wsBefore = wsAfter To Worksheets.Count If UCase(Worksheets(wsBefore).Name) < _ UCase(Worksheets(wsAfter).Name) Then _ Worksheets(wsBefore).Move Befo=Worksheets(wsAfter) Next Next End Sub or this: http://www.cpearson.com/excel/sortws.htm Regards, KL "sisco98" wrote in message ... Hi, does somebody know that how can I sort worksheets by name in a workbook? thanks in advance -- sisco98 |
http://www.cpearson.com/excel/sortws.htm
-- Kind regards, Niek Otten Microsoft MVP - Excel "sisco98" wrote in message ... Hi, does somebody know that how can I sort worksheets by name in a workbook? thanks in advance -- sisco98 |
thanks for your quick respond, your code works very good.
-- sisco98 "KL" wrote: you could try this: Sub Test() Dim wsAfter As Integer Dim wsBefore As Integer For wsAfter = 1 To Worksheets.Count For wsBefore = wsAfter To Worksheets.Count If UCase(Worksheets(wsBefore).Name) < _ UCase(Worksheets(wsAfter).Name) Then _ Worksheets(wsBefore).Move Befo=Worksheets(wsAfter) Next Next End Sub or this: http://www.cpearson.com/excel/sortws.htm Regards, KL "sisco98" wrote in message ... Hi, does somebody know that how can I sort worksheets by name in a workbook? thanks in advance -- sisco98 |
You're most welcome.
KL "sisco98" wrote in message ... thanks for your quick respond, your code works very good. -- sisco98 "KL" wrote: you could try this: Sub Test() Dim wsAfter As Integer Dim wsBefore As Integer For wsAfter = 1 To Worksheets.Count For wsBefore = wsAfter To Worksheets.Count If UCase(Worksheets(wsBefore).Name) < _ UCase(Worksheets(wsAfter).Name) Then _ Worksheets(wsBefore).Move Befo=Worksheets(wsAfter) Next Next End Sub or this: http://www.cpearson.com/excel/sortws.htm Regards, KL "sisco98" wrote in message ... Hi, does somebody know that how can I sort worksheets by name in a workbook? thanks in advance -- sisco98 |
All times are GMT +1. The time now is 11:33 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com