エクセルマクロで、特定シートより右側にあるシートを全て削除するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
ぜひお試しください!
特定シートより右側を全て削除
以下のExcelVBAを実行すると、特定シート以降をすべて削除します。
Sub 特定シートの右側を全削除()
Dim WS As Worksheet
Dim Target As String
Dim Chk As Long
'このシートより右にあるシートが削除対象
Target = "Sheet3"
Chk = 0
'シートをループ
For Each WS In Worksheets
'「Target」シートだったらフラグ付け
If WS.Name = Target Then
Chk = 1
Else
If Chk = 1 Then
'シート削除
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End If
End If
Next WS
'ファイル保存等の処理を追加
End Sub
マクロ実行後
[Target = “Sheet3”] にて指定したシートより、
右に存在するシートを一括削除します。
[Target] にて指定したシートは削除しません。
この記事がお役に立ちますと幸いです。

【エクセルマクロ】シートの追加・削除を自動化:超便利13選
...
「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!
リンク