Hi buddy,
Could some one help me on my code? I have imported 85 sheet to master sheet, however the sheets are not arranged by name type. The result from the code as follow:
01,10,11,12...,19,02,20,21,...,29,03,30,...
it should be like this:
01,02,03,...,09,10,11,12,...,85
Code:
PHP Code:
Sub Macro1()
Dim shNames() As String, swOk As Boolean
Dim sh As Worksheet, idx As Integer, i As Integer
Dim shName As String
With ThisWorkbook
ReDim shNames(1 To .Sheets.Count)
For Each sh In .Sheets
idx = idx + 1
shNames(idx) = sh.Name
Next
'sort names
Do
swOk = True
For i = 1 To idx - 1
If shNames(i) > shNames(i + 1) Then
shName = shNames(i)
shNames(i) = shNames(i + 1)
shNames(i + 1) = shName
swOk = False
End If
Next
Loop Until swOk = True
'move sheets
For i = 1 To idx
If i = 1 Then
.Sheets(shNames(i)).Move before:=Sheets(1)
Else
.Sheets(shNames(i)).Move after:=Sheets(i - 1)
End If
Next
End With
End Sub