Sub Sample15() '警告表示をオフにします。 Application.DisplayAlerts = False 'シート名「a」を消します。 Worksheets("a").Delete '警告表示をオンにします。 Application.DisplayAlerts = True End Sub