ワークシート削除 Application.DisplayAlerts = False Dim ws As Worksheet For Each ws In Sheets If ws.Name = "シート名" Then ws.Delete End If Next