Ordering of sheets in a workbook

  • Thread starter Thread starter T
  • Start date Start date
T

T

Is it possible to order worksheets in a workbook in alpha order according to
the tab name? The alternative I have is to copy and move each one and it will
take me a very long time for the said workbook.

thanks
 
Hey Simon,

Thanks for sending through the code. I don't use VB often, but I've tried to
break down the code to what is shown below. I however get a compile error at
"Sheets(i)..." I'm not sure how to correct this.

~~~~~~~~~~~~~~~~~~~~
Sub Sort_Tabs()

Dim i, j As Integer
Dim iNumSheets As Integer

iNumSheets = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False

For i = 1 To iNumSheets - 1
For j = i + 1 To iNumSheets
If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then Sheets(j).Move
Before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True

End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
Back
Top