【VBA】シートを並び替える【バブルソートを使ってMoveで移動する】

参考元：【VBA】シートを並び替える【バブルソートを使ってMoveで移動する】
https://daitaideit.com/vba-sheet-sort/

　
手順としては、次のようになります。
　基準のシートを「1～4番目」でループ
　比較シートを「基準＋1番目～最終シート」でループ
　右側のシートが小さい場合は、基準シートの左に移動

Sub TEST1()
  
  '基準をループ
  For i = 1 To 4
    '比較先をループ
    For j = i + 1 To 5
      '右側が小さい場合は、基準の左に移動
      If Sheets(i).Name > Sheets(j).Name Then
        Sheets(j).Move before:=Sheets(i) '基準の左に移動
      End If
    Next
  Next
  
End Sub