worksheet sorting

[sisco98]

Hi,

does somebody know that how can I sort worksheets by name in a workbook?

thanks in advance

 

[Bob Phillips]

http://www.cpearson.com/excel/sortws.htm

 

[KL]

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 Before:=Worksheets(wsAfter)
Next
Next
End Sub

or this:

http://www.cpearson.com/excel/sortws.htm

Regards,
KL

 

[Niek Otten]

http://www.cpearson.com/excel/sortws.htm

--
Kind regards,

Niek Otten

Microsoft MVP - Excel

 

[sisco98]

thanks for your quick respond, your code works very good.

 

[KL]

You're most welcome.

KL

thanks for your quick respond, your code works very good.