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