[Excel] VBA - 시트 이름순 정렬 - 작성중

 

 

Option Explicit
Option Base 1
Sub dhsortSheet()
Dim i As Integer, j As Integer, temp As String
Dim arr() As String
i = Worksheets.Count
ReDim arr(i)
For i = 1 To UBound(arr())
arr(i) = CStr(Worksheets(i).Name)
Next i
For i = UBound(arr()) - 1 To 1 Step -1
For j = 1 To i Step 1
If arr(j) > arr(j + 1) Then
temp = arr(j)
arr(j) = arr(j + 1)
arr(j + 1) = temp
Worksheets(temp).Move after:=Worksheets(arr(j))
End If
Next j
Next i
End Sub