Sort the sheets 1

[nfpk]

Hello!
Is it possible to sort the sheets in a workbook in alfabethical order? Is there a command for this?

nfpk

 

[KenWright]

One way - Code from Dave McRitchie/Bill Manville:-

Sub SortALLSheets()
'modification of coded example by Bill Manville
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
End Sub '-- SortALLSheets()

Regards
Ken..............

 

[nfpk]

Thanks a lot, it works perfect!!!

 

[KenWright]

My pleasure - Glad it helped.

Regards
Ken.........