Dec 26 2021 10:58 AM - edited Dec 26 2021 11:18 AM
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...
Dec 26 2021 12:26 PM
SolutionHere 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.
Dec 26 2021 08:31 PM
Dec 26 2021 12:26 PM
SolutionHere 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.