EXCEL VIDEO TUTORIALS / EXCEL DASHBOARD REPORTS

Ozgrid, Experts in Microsoft Excel Spreadsheets

Sort Excel Worksheets/Sheets in Excel

 

Sorting Excel Worksheets/Sheets in Excel. VBA: Sort Excel Sheets/Worksheets

Sort Excel Worksheets/Sheets in Excel. See Also: Group Excel Worksheets/Sheets by Colour || Sort Array

The Excel VBA macro code below can be used in any Excel Workbook, or Excel add-in for sorting Excel Sheets. When run it will sort all Sheet in the active Workbook. To use the code, go to Tools>Macro>Visual Basic Editor (Alt+F11) and then to Insert>Module and paste in the code below.

Sub SortSheets()

Dim lCount As Long, lCounted As Long

Dim lShtLast As Long

Dim lReply As Long





lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _

& "To sort Worksheets descending select 'No'", vbYesNoCancel, "Ozgrid Sheet Sort")

If lReply = vbCancel Then Exit Sub



lShtLast = Sheets.Count



    If lReply = vbYes Then 'Sort ascending

        For lCount = 1 To lShtLast

            For lCount2 = lCount To lShtLast

                If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then

                    Sheets(lCount2).Move Before:=Sheets(lCount)

                End If

            Next lCount2

        Next lCount

    Else 'Sort descending

     For lCount = 1 To lShtLast

            For lCount2 = lCount To lShtLast

                If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then

                    Sheets(lCount2).Move Before:=Sheets(lCount)

                End If

            Next lCount2

        Next lCount

    End If



End Sub

See Also: Group Excel Worksheets/Sheets by Colour || Sort Array

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.


Instant Download and Money Back Guarantee on Most Software

EXCEL VIDEO TUTORIALS / EXCEL DASHBOARD REPORTS

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft and Microsoft Excel are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft

Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates