マクロ 特定のシート以外を削除する

質問

いつも回答して頂きありがとうございます。
特定のシート以外を削除するマクロを作成して動作させたのですが、削除する時に『選択したシートにデータが存在する可能性が・・・』と聞いてきます。これを無視して削除を行わせたいのですがどうすればよろしいでしょうか？御指導の程宜しくお願い致します。

Sub シートの削除()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "データ元" And ws.Name <> "集計用" Then
ws.Delete
End If
Next
End Sub

回答No.2

K Kazz（@JazzCorp） · ベストアンサー

オマジナイが必要、、、

Option Explicit
Sub シートの削除()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "データ元" And ws.Name <> "集計用" Then
ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

お礼

Application.DisplayAlerts = False
で無視出来るんですね。回答ありがとうございました。

回答No.4

KURUMITO

次のようにすればよいでしょう。

If ws.Name <> "データ元" And ws.Name <> "集計用" Then
Application.DisplayAlerts = False
ws.Delete
End If

お礼

Application.DisplayAlerts = False
で無視出来るんですね。回答ありがとうございました。

回答No.3

tom04

こんにちは！

＞If ws.Name <> "データ元" And ws.Name <> "集計用" Then
＞ws.Delete
の間に
＞Application.DisplayAlerts = False
の1行を追加して

If ws.Name <> "データ元" And ws.Name <> "集計用" Then
Application.DisplayAlerts = False
ws.Delete

にしてみてください。
これでOKだと思います。m(_ _)m

お礼

Application.DisplayAlerts = False
で無視出来るんですね。回答ありがとうございました。

回答No.1

web2525

データを削除（クリア）した後にシートを削除したらいいのでは？

お礼

まっさらなシートを削除する時もでるので困っているんです。