ワークシート削除

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