Hi,

Alt+F11 to open vb editor. Right click 'ThisWorkbook' and insert module and
paste the code below 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

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Anita" wrote:

The only way I know is to drag and drop but it's time consuming. Is there an
easier way?