【エクセル】削除の確認ポップアップなしでシート削除

質問

いつもお世話になっております。

シート名が”元データ”、”ひな形”でないシートをすべて削除したいです。
わたくしが書いたコードではIF構文がうまくいっていないのか、
すべて削除されてしまいます。

また、インターネット上で見つけました「削除しますか？」という
確認のポップアップを表示しないコードを入れてみたものの、うまく機能せず...。

再び皆様の知恵をお借りできませんでしょうか。
どうか、よろしくお願いいたします。

回答No.2

watabe007 · ベストアンサー

参考に
Sub Test1()
　　Dim ws As Worksheet
　　Application.DisplayAlerts = False
　　For Each ws In ThisWorkbook.Worksheets
　　　　If ws.Name <> "元データ" And ws.Name <> "ひな形" Then
　　　　　　ws.Delete
　　　　End If
　　Next
　　Application.DisplayAlerts = True
End Sub

Sub Test2()
　　Dim ws As Worksheet
　　Application.DisplayAlerts = False
　　For Each ws In ThisWorkbook.Worksheets
　　　　Select Case ws.Name
　　　　　　Case "元データ", "ひな形"
　　　　　　Case Else
　　　　　　　　ws.Delete
　　　　End Select
　　Next
　　Application.DisplayAlerts = True
End Sub

お礼

watabe007様
早速のご回答ありがとうございます。
実行したところ、うまくいきました。
自分のコードと照らし合わせたところ、
Application.DisplayAlerts = Falseの挿入位置が間違っておりました。
勉強になります。重ねましてありがとうございました。

回答No.1

asuncion

どんなコードを書かれたかを示す必要があります。
そうしないと、どこをどう修正すればよいのか
回答のしようがありません。

お礼

失礼いたしました、コードを張り付けておりませんでした。
watabe007様が示してくださったコードと照らし合わせると、
Application.DisplayAlerts = Falseの位置が間違っていたようです。
ご指摘ありがとうございました。