I'd like to rearrange worksheets within a workbook so that they appear in
alphabetical order.

See http://www.cpearson.com/excel/sortws.aspx

--
__________________________________
HTH

Bob

"trishk" wrote in message
...
I'd like to rearrange worksheets within a workbook so that they appear in
alphabetical order.

Hi,

Right click a sheet tab, view code and paste this in and run it

Sub Sortem()
For x = 1 To Worksheets.Count
For y = x To Worksheets.Count
If UCase(Sheets(y).Name) < UCase(Sheets(x).Name) Then
Sheets(y).Move Befo=Sheets(x)
End If
Next
Next
End Sub

Mike

"trishk" wrote:

I'd like to rearrange worksheets within a workbook so that they appear in
alphabetical order.