Forum Discussion

Excel's avatar
Excel
Iron Contributor
Dec 26, 2021
Solved

Worksheets in alphabetical order with the help of VBA code

Hello Everyone,

 

Wish you a Merry Christmas.

 

I have written VBA code to import TEXT file to EXCEL file. And it successfully import.

 

CODE :

 

Result :

But how to Worksheets in alphabetical order with the help of VBA? What should add in VBA?

 

Here is a attached file...

Macros and VBA
  • HansVogelaar's avatar
    HansVogelaar
    Dec 26, 2021

    Excel 

    Here is a macro to sort sheets:

    Sub SortSheets()
    Dim i As Long
    Dim j As Long
    For i = 1 To Worksheets.Count - 1
        For j = i + 1 To Worksheets.Count
            If Worksheets(i).Name > Worksheets(j).Name Then
                Worksheets(j).Move Before:=Worksheets(i)
            End If
        Next j
    Next i
End Sub

    You can call it at the end of ImprtTextFile, if desired.

2 Replies

  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Dec 26, 2021

    Excel 

    Here is a macro to sort sheets:

    Sub SortSheets()
    Dim i As Long
    Dim j As Long
    For i = 1 To Worksheets.Count - 1
        For j = i + 1 To Worksheets.Count
            If Worksheets(i).Name > Worksheets(j).Name Then
                Worksheets(j).Move Before:=Worksheets(i)
            End If
        Next j
    Next i
End Sub

    You can call it at the end of ImprtTextFile, if desired.

    • Excel's avatar
      Excel
      Iron Contributor
      Dec 27, 2021
      It worked. Thank you so much sir.

Resources