対象シート以外を削除する

VBAでシートを削除

Sub DeleteAllSheetsExceptOne()
Dim sheet As Worksheet
Dim sheetToKeep As Worksheet
Dim sheetNameToKeep As String

sheetNameToKeep = "Sheet1" ' 保持するシートの名前を指定してください

Application.DisplayAlerts = False ' 確認ダイアログを非表示にする場合

For Each sheet In ThisWorkbook.Sheets
    If sheet.Name <> sheetNameToKeep Then
        sheet.Delete
    Else
        Set sheetToKeep = sheet
    End If
Next sheet

Application.DisplayAlerts = True

If Not sheetToKeep Is Nothing Then
    sheetToKeep.Activate
    MsgBox "指定されたシート以外が削除されました。"
Else
    MsgBox "指定されたシートが見つかりませんでした。"
End If

End Sub