Excel Crazy

Sort Sheets Alphabetically-Excel VBA

PROBLEM STATEMENT

Sort all worksheets in A-Z/Z-A order

For Example:

In the below screenshot worksheets are not sorted in any order.

After running macro, they will be arranged in systematic manner

SOLUTION

Sub Arrange_Sheets()
Dim Sort_Descending As Boolean
Dim count_Sheets As Integer
Dim i As Integer
Dim j As Integer
No_of_Sheets = Sheets.Count

'Change Flag As appropriate
Sort_Descending = False
For i = 1 To No_of_Sheets
        For j = 1 To i
               If Sort_Descending = True Then
                If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then
                                Sheets(i).Move Before:=Sheets(j)
                End If
           End If
          If Sort_Mode_Descending = False Then
            If UCase(Sheets(i).Name) < UCase(Sheets(j).Name) Then
                        Sheets(i).Move Before:=Sheets(j)
            End If
          End If
 
        Next j
            Next i
End Sub

STEPS TO PERFORM

1. Go to developer Tab else Press Alt + F11
2.Click on Visual Basic icon
3.Go to Insert click on Module
4.Paste below code in standard module

December 28, 2017

0 responses on "Sort Sheets Alphabetically-Excel VBA"

Leave a Message

Your email address will not be published. Required fields are marked *

top
 

© LOKESH PALIWAL 1987 - 2018

LOKESH@EXCELCRAZY[DOT]COM | 8826547882

Reporting Solutions | Data Consulting | Analytics Training

CONTACT US
close slider

Your Name (required)

Your Email (required)

Your Phone no. (required)

Your Message for us...

Skip to toolbar