ワークシートの削除は次のように行います。
アクティブなシートを削除する
Sub Test() ActiveSheet.Delete End Sub
"Sheet1"を削除する
Sub Test() Worksheets("Sheet1").Delete End Sub
シート削除時の確認ポップアップを非表示にする
Sub Test() Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub
※注意
DisplayAlerts = Falseで非表示になります。
削除後はDisplayAlerts = Trueにするのを忘れないでください。