Sub メッセージを停止() Application.DisplayAlerts = False 'メッセージを停止 'ここにコードを記述 Application.DisplayAlerts = True 'メッセージの停止解除 End Sub