Sorting Worksheets

[Dave]

Is there any way that I can sort my multiple worksheets?

 

[Danny]

Try this macro:
Macro IN Workbook

Sub SortAllSheets()

Dim iSheet As Integer, iBefore As Integer
For iSheet = 1 To ActiveWorkbook.Sheets.Count
Sheets(iSheet).Visible = True
For iBefore = 1 To iSheet - 1
If UCase(Sheets(iBefore).Name) > UCase(Sheets
(iSheet).Name) Then
ActiveWorkbook.Sheets(iSheet).Move
Before:=ActiveWorkbook.Sheets(iBefore)
Exit For
End If
Next iBefore
Next iSheet
'"Name of Sheet" - active sheet after sorting
Sheets("Name of Sheet").Select
Range("A1").Select
End Sub