サンプルソースは次のとおり。
'シートを削除する Sub Example() Application.DisplayAlerts = False Sheets("Sheet1").Delete Application.DisplayAlerts = True End Sub
'シートを削除する Sub Example() Application.DisplayAlerts = False Sheets("Sheet1").Delete Application.DisplayAlerts = True End Sub
コメント