Sub ki050()
Dim dat() As String
shend = Worksheets.Count
ReDim dat(shend)
For i = 1 To shend
   dat(i - 1) = Worksheets(i).Name
Next
    
For i = 0 To shend - 1
    For j = shend - 1 To i Step -1
      If dat(i) > dat(j) Then
         datm = dat(i)
         dat(i) = dat(j)
         dat(j) = datm
      End If
     Next
Next

Worksheets(dat(0)).Move Before:=Worksheets(1)
For i = 2 To shend
   Worksheets(dat(i - 1)).Move After:=Worksheets(i - 1)
Next
End Sub

'
'–ß‚·
Sub ki050a()
   scn = Sheets.Count
For i = 1 To scn
   If i = 1 Then
      Sheets("Sheet1").Move After:=Sheets(scn)
   End If
   Select Case i
        Case 2
               Sheets("BBBB").Move Before:=Sheets("Sheet1")
        Case 3
               Sheets("AAAA").Move Before:=Sheets("BBBB")
        Case 4
               Sheets("Sheet4").Move Before:=Sheets("AAAA")
        
    End Select
Next
    Sheets("Title").Select
End Sub