【VBA】指定したシートより、左側にあるシートを削除する

VBAで
　・指定したシートより、左側にあるシートを削除
できます！

VBAコード
実行結果
参考

VBAコード

ここでは例として
　・シート「売上」より、左側にあるシートを削除
します。
※シート「temp1」と「temp2」を削除します。

Option Explicit

Sub sample()
    
    Dim wb As Workbook
    Dim sheetCount As Long
    
    '対象のブックを指定
    Set wb = ThisWorkbook
    
    'シート数分繰り返し ※右側のシートから左側のシートへ向かって繰り返す
    For sheetCount = wb.Worksheets.count To 1 Step -1
        '売上シートのインデックス番号より小さいインデックス番号のシートを削除する
        '※つまり売上シートの左側にあるシートを削除する
        If sheetCount < wb.Worksheets("売上").Index Then
            Application.DisplayAlerts = False
            wb.Worksheets(sheetCount).Delete
            Application.DisplayAlerts = True
        End If
    Next
    
    MsgBox ("売上シートより、左側にあるシートを削除しました。")

End Sub

シート数繰り返し処理をして、指定したシートより左側にある場合はシートを削除します(12～20行目)。
※今回は「右から左へ向かって繰り返す」ようにします。
※シートの削除によりシートのインデックス番号が変わっていくため、「左から右へ向かって繰り返す」だと上手くいかないため。