Hi,

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

Sub Sortem()
LastSheet = Sheets.Count
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If UCase(Sheets(ws2).Name) < UCase(Sheets(ws).Name) Then
Sheets(ws2).Move Befo=Sheets(ws)
End If
Next ws2
Next ws
End Sub

Mike

"Darlene" wrote:


--
Darlene