ＶＢＡにて

質問

お世話になります。
ＶＢＡでプログラムを作成しています。
その中で下記の記述にて、エクセルのシートを
削除したい部分があるのですが、Ｍｓｇｂｏｘで、
「選択したシートに、データが存在する可能性があります。
　データを完全に削除するには、「削除」をクリックしてください。」
と出るメッセージをＶＢＡの記述により出ない様に
したいのですが・・。
その方法を教えてください。
宜しくお願い致します。

　　　　　記
ActiveWindow.SelectedSheets.Delete

回答No.1

onlyrom · ベストアンサー

DisplayAlertsプロパティを Falseにしてください。

'-----------------------------------
Application.DisplayAlerts = False
　　Sheets("Sheet2").Delete
Application.DisplayAlerts = True
'-----------------------------------

お礼

ありがとうございます。
参考になりました。