シート名ｃより右側のシートをすべて削除するVBA

Sub 指定シートの右側シート全部削除()
Dim currentSheet As Worksheet
Dim sheetIndex As Integer
' シートCのインデックスを取得
sheetIndex = Sheets("SheetC").Index

' シートCの右側にあるシートを順番に削除
For Each currentSheet In ThisWorkbook.Sheets
    If currentSheet.Index > sheetIndex Then
        Application.DisplayAlerts = False ' 確認ダイアログを非表示にする
        currentSheet.Delete
        Application.DisplayAlerts = True
    End If
Next currentSheet
End Sub

chatGDPで作成。問題なく稼働。
このコードは、シートCの右側にあるすべてのシートを削除します。Application.DisplayAlerts = FalseおよびApplication.DisplayAlerts = Trueは、確認ダイアログを非表示にするための設定です。コードを実行する前に、注意してください。削除操作は元に戻せません。安全のために、作業前にバックアップを取得するか、テスト用のコピーを作成してからコードを実行することをお勧めします。