シートの削除

Activesheet.Delete

確認なしで削除
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True