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